eval 
{
   some db command
   $dbh->do....;
}
if ($@)
{
   print "$@\n";
   print $DBI::Errstr,"\n";
}