From % perldoc DBI

$sql = sprintf "SELECT foo FROM bar WHERE baz = %s", $dbh->quote("Don'
+t");
[download]

I usually use a slight variation on this....

$sql = "SELECT foo FROM bar WHERE baz = " . $dbh->quote("Don't");
[download]

-Blake