Select Code to Download

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

my $dbh;

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