为什么perl cgi程序中不能用warnings？

[maniacus]

我用perl编写的的CGI程序，如果是用use warnings;就出现错误.显示的是：500 Internal Server Error。
去掉use warnings 用－w就可以，是什么原因呢？请高手赐教！
代码如下：
#!/usr/bin/perl
# Fig. 7.4: fig07_04.pl
# Program to display CGI environment variables.

use warnings; ＃这里如果去掉这一行，在开头一行加 -w 就没有错误
use strict;
use CGI qw(:standard);


print header(), start_html( "Environment Variables" );

print '<table border = "0" cellspacing = "2">';

foreach my $variable ( sort( keys %ENV ) ) {
print Tr( td( b( "$variable:" ) ),
td( i( $ENV{ $variable } ) ) );
}

print '</table>', end_html();