#!/usr/local/bin/perl
use warnings;
use strict;
use DBI;

my $dbh = DBI->connect("DBI:Oracle:"."a_database",
                       "a_user",
                       "a_password",
       {AutoCommit => 1, PrintError => 0, RaiseError => 0 })
    or die "Couldn't connect to a_database: " . $DBI::errstr;

my $res = $dbh->selectall_arrayref("select 1 from dualXXX");

unless ($DBI::err == 0) {
        print "SQL Failed: ${DBI::err}\n${DBI::errstr}\n";
}
else {
        print "Successful\n";
}
$dbh->disconnect();