my $dsn = 'dbi:Oracle:host=10.1.1.100;sid=XX;port=1521';

##</code><code>##

my $dbh;

eval {

    $dbh = DBI->connect( $dsn, $username, $password) ||
      die "Cannot connect to database - [$dsn]: $DBI::errstr";
};

if ($@) {
   log("[Error] COULD NOT CONNECT TO DATABASE: [$@]\n");
}