use the DBI quote method:

my $message = $dbh->quote( "Couldn't connect: Net::FTP: Timeout" );
...
[download]

-derby