BEGIN {
     	use CGI::Carp qw(carpout);
     	carpout(STDOUT);
   }