my $qry = "delete from my_table where id=?";
my $sth = $dbh->prepare($qry);
$sth->execute($value_to_delete) or die DBI->errstr;
print "deleted rows = ".$sth->rows;
$sth->finish;