perl中是否有像php中mysql_escape_string()一样的函数

perl中是否有像php中mysql_escape_string()一样的函数

如题
请高手帮忙
$dbhandle->quote($str);
多谢指点