eval {
        $dbh = DBI->connect("dbi:ODBC:$DSN");
                ...
    
        $sth->execute() or die "Execute Failed: $!";
        $dbh->disconnect();
    };
    if($@) {        
        print "DB Failure: $@";
    }