my $dbh = DBI->connect( blah, blah,
     {PrintError => 0,
      RaiseError => 0} ) or die "message";

...

$sth->execute() or die "print your own error message here."