Select Code to Download

my $sql = qq~DELETE FROM `gates-post` WHERE id = ?~;
my @bind = ( $dat[1] );
$dbh->do($sql, {}, @bind);