Select Code to Download

my $sth=$dbh->prepare($MYSQL) or die "Could not prepare $MYSQL: $DBI::
+errstr\n";
...etc. for all connects, executes, etc.

$dbh->trace(2);

my $string = "find me";
my $newstring = $dbh->quote($string) or die "Could not quote $string: 
+$DBI::errstr\n";
print "($string) has become ($newstring)\n";

my $bazfind = shift || "12";

...
  or die qq!Could not execute $FOOBAR_SQL with "$bazfind": $DBI::errst
+r\n!;

...etc. etc.