use Msql;
my $db = Msql->connect;
my $string = "Это ' (одинарная кавычка)";
my $qstring = $db->quote($string);
print qq%Tenepb значение строки "'Это\\' (одинарная кавычка)'" : $qstring\n%;