Select Code to Download

use CGI::Carp  qw(fatalsToBrowser set_message);
BEGIN {
...

 });
}

  eval {
    $db1 = DBI->connect(
...
  if ($@) {
    die "Database error: failed to connect.\n";
  }