my $dbh = DBI->connect('DBI:Oracle:payroll', 
{RaiseError => 1}) or die "Couldn't connect to database: " . DBI->errstr;