Select Code to Download

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;

my $qry = "delete from my_table where id=?";
$dbh->do($qry, undef, $value_to_delete);