use DBI;
eval {
   $dbh = DBI->connect('dbi:Oracle:dev', 'bad', 'pass', {RaiseError => 1, PrintError => 0}) || warn "warning";
   print "after connect\n";
};
if ($@) {
   print "Ugh!\n";
}
##</code><code>##

# perl testit
Ugh!