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