Have you tried:

#Put the following code at the top of the script,
#just below #!/usr/bin/perl.
#Run the program from your browser,
#and read what is printed there.

BEGIN {
        local($|) = 1;                  # Temporarily turn off bufferi
+ng
        print "Content-type: text/plain\n\n";
        my $date = localtime;
        print "Script $0\nrunning on $date (Perl version $])\n\n";
        unless (open STDERR, ">&STDOUT") {
                print "Can't redirect STDERR: $!";
                exit;
        }
        print "\n";
}
[download]