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

sub sendmail {
  ... #Send mail here
  die;
}