#!/usr/bin/perl -w -T
 BEGIN {
 $SIG{__WARN__} = sub{ print STDERR "Perl: ", @_; };
 $SIG{__DIE__}  = sub{ print STDERR "Perl: ", @_; exit 1}
         }
 print "Content-type: text/html\n\n";
 print "Hello World \n";