Select Code to Download

my $SQL = "DELETE FROM [Production Words] WHERE areaId=?";
my $sth = $DBH->prepare($SQL);
$sth->execute('ofn01506') || die "Could not execute SQL statement ... 
+maybe invalid?\n$!";