在perl中构造一个CGI应用程序非常简单。事实上，我们仅仅需要写几行代码来创建一个简单的文本Web计数器。最有意思的部分是确定如何将文本放到HTML文档中。
为了解决这个问题，将下面的JavaScript代码放入你想要计数器出现在HTML文档的地方。
<script language="JavaScript" src="/cgi-bin/textcounter.pl"> </script>
这个告诉我们浏览器从CGI 脚本抢夺JavaScript应用程序资源代码。perl脚本仅仅返回一个JavaScript命令来打印计数器的值。比如：
#!/usr/bin/perl
$count = 'counter.cnt';
# open, read, update counter file
open (FILE, "<$count");
$counter=<FILE>;
close(FILE);
$counter++;
open (FILE,">$count");
print FILE "$counter";
close(FILE);
# send the result to the client as a javascript command
print "Content-type: text/html
";
print qq!document.write("$counter");!;
在你安装这个脚本之前，必须确定脚本第一行开始符是‘#！’——在Web服务器上它包含了适当的路径到perl解释程序。在你复制脚本到Web server的cgi-bin目录，你可能在脚本运行之前需要使用chmod 775命令。
