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";
}