die  $dbh->errstr if $dbh->errstr;

##</code><code>##

die $! if $!