use CGI;

   BEGIN {
     use CGI::Carp qw(carpout fatalsToBrowser);
     open STDOUT;
     carpout STDOUT;
   }
$query = new CGI;

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