在perl脚本中包含单独的javascript文件

我有一组perl CGI网页，我正试图对它们进行重构，但却遇到了问题

这些脚本中的每一个都有一些javascript和CSS，目前以以下形式编写：

my $JSCRIPT = << CODE;
function doStuff() {
  // Stuff
}
CODE;

my $CSS = <<BLOCK;
.css-stuff{}
BLOCK

---

有没有一种重构代码的好方法，这样我就可以使用一个

common.js

或类似的文件，而不是将$JSCRIPT的副本放在多个文件中？如何包含一个文件来完成此任务？

使用CGI文档中所示的

-code

而不是

-src

print $q->start_html(-title=>'The Riddle of the Sphinx',
                     -script=>{-type=>'JAVASCRIPT',
                               -src=>'/javascript/sphinx.js'}
                     );

print $q->start_html(-title=>'The Riddle of the Sphinx',
                          -script=>[
                                    { -type => 'text/javascript',
                                      -src      => '/javascript/utilities10.js'
                                    },
                                    { -type => 'text/javascript',
                                      -src      => '/javascript/utilities11.js'
                                    },
                                    { -type => 'text/jscript',
                                      -src      => '/javascript/utilities12.js'
                                    },
                                    { -type => 'text/ecmascript',
                                      -src      => '/javascript/utilities219.js'
                                    }
                                 ]
                             );

---

您可以使用以下HTML从文件加载脚本：

<script src="/path/to/file.js"></script>

foo.tt

你好，模板工具包！
你好，模板工具包！

输出

你好，模板工具包！
你好，模板工具包！

值得注意的是，CGI的这种用法（很快就会）被弃用，建议改用模板引擎，如模板工具包。看见

<script src="/path/to/file.js"></script>

use strict;
use warnings;

use CGI;
use Template;

my $tt = Template->new or die Template->error;

my $q = CGI->new;
print $q->header;

my $js_file = '/path/to/file.js';
$tt->process('foo.tt', { js_file => $js_file }) or die $tt->error;