Select Code to Download

  use DBI;

...

  $rc  = $dbh->disconnect;

 use Carp;
  $h->{HandleError} = sub { confess(shift) };