use CGI::Carp  qw(fatalsToBrowser set_message);
BEGIN {
 set_message( sub {
   my $msg = shift;

   # message for development server
   #print "<h3>Server Error!</h3><pre>$msg</pre>";

   # message for production server
   print "<h3>Server Error!</h3><p>Please try again later</p>";

 });
}