#!perl -w
use strict;
use DBI;

my $dbh = DBI->connect('DBI:mysql:database=test','xxx','yyy',) || die;
print $dbh->quote(q{Boston;DELETE FROM myTable});
__END__
'Boston;DELETE FROM myTable'