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>";

 });
}

##</code><code>##

  eval {
    $db1 = DBI->connect(
      $CFG{'DB_DSN'},
      $CFG{'DB_USER'},
      $CFG{'DB_PASS'},
      {RaiseError => 1, AutoCommit => 1, },
    );
  };

  if ($@) {
    die "Database error: failed to connect.\n";
  }