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");
}