请帮我测试一下这个perl文件

VirusCamp

大家帮我测试一下这个程序,一个apache的cgi,不管是在apache里还是单独在shell里用perl运行,这句话:
print "Content-type: text/plain; charset=iso-8859-1\n\n";
总是不运行.
shell里还好,只是少一句,而apache里,少了Content-type就报错(apache运行另一个perl文件没错).
而我把注释去掉后就好了.非常奇怪.
请用shell运行一下,看看有没有第一句.

文件传不上来,请看下面.
ps:我用hexeditor看过此文件,所有的换行苻都是'\0a',而且只有一个,可以排除换行苻及不可见字符.


#!/usr/bin/perl
##
##  printenv -- demo CGI program which just prints its environment
##
print "Content-type: text/plain; charset=iso-8859-1\n\n";
foreach $var (sort(keys(%ENV))) {
    $val = $ENV{$var};
    $val =~ s|\n|\\n|g;
    $val =~ s|"|\\"|g;
    print "${var}=\"${val}\"\n";
}