Select Code to Download

sub send_mail {
   my $msg = shift;
...
   warn $msg;
   exit;
}

my $dbh = DBI->connect('DBI:Oracle:host=**,sid=***', 'usrname', 'passw
+d', { RaiseError => 1, AutoCommit => 0 } ) 
   || send_mail "Database connection not made:$DBI::errstr";