use CGI;

   BEGIN {
   use CGI::Carp qw(carpout fatalsToBrowser);
     open(LOG, ">test") or
       die("Unable to open test: $!\n");
     carpout(LOG);
     }
   
$query = new CGI;

print $query->header;
prnt "hello";