my $sth=$dbh->prepare($statement)
  or die "Error in prepare: ", $DBI::errstr, ": ($DBI::err)\n";
              
$sth->execute()
  or die "Error in prepare:", $DBI::errstr, ": ($DBI::err)\n";