Select Code to Download

my $dbh = DBI->connect('DBI:Oracle:host=**,sid=***', 'usrname', 'passw
+d', { RaiseError => 1, AutoCommit => 0 } ) or sendmail();

...
  ... #Send mail here
  die;
}