PERL CGI模块应用

我在想着写个函数来做网页HTML的特殊字符的转换,如转为<html>
转换的字符有“’ ” & < > ”,发现CGI模块其实已经内置这样的函数了。
escapeHTML和unescapeHTML。
例:
use CGI ();
my $query = new CGI;
print $query->escapeHTML(‘<div>中国</div>’);
print $query->unescapeHTML(‘&lt;div&gt;中国&lt;div&gt;);