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