my $dbh = DBI->connect( "dbi:Oracle:$database", $user, $passwd, {AutoCommit => 0, RaiseError => 1, PrintError => 0}) || die "Can't connect to database: $DBI::errstr";

my $qry = $dbh->prepare(q{ select BAD__column from users where id=12543256 }) or die "Prepare bad: $DBI::errstr";

------OUTPUT------
Use of uninitialized value in concatenation (.) or string at ./dbitest.pl line 15.
Prepare bad:  at ./dbitest.pl line 15.
------END--------