use DBI;
eval {
   # this connect will fail
   $dbh = DBI->connect('dbi:Oracle:dev', 'user', 'pass', {RaiseError => 1, PrintError => 0}) || die "my die";
   print "after connect\n";
};
if ($@) {
   print "$@\n";
}