use CGI qw(escapeHTML) version:
time elapsed (wall):   0.0781
time running program:  0.0597  (76.47%)
time profiling (est.): 0.0184  (23.53%)
number of calls:       75


%Time    Sec.     #calls   sec/call  F  name

37.70    0.0225        1   0.022507     <anon>:foo.pl:5
25.15    0.0150        3   0.005003     CGI::_compile
14.82    0.0088        0   0.008849  *  <other>
 6.81    0.0041        1   0.004066     <anon>:...sr/lib/perl5/5.6.1/CGI.pm:27
 5.02    0.0030        1   0.002998     Exporter::export
 3.79    0.0023        1   0.002263     <anon>:.../lib/perl5/5.6.1/CGI.pm:3275
 2.59    0.0015        1   0.001548     <anon>:...sr/lib/perl5/5.6.1/CGI.pm:33
 0.62    0.0004        2   0.000184     warnings::register::import
 0.40    0.0002        3   0.000080     CGI::AUTOLOAD
 0.37    0.0002        2   0.000111     Exporter::import
 0.26    0.0002        1   0.000154     CGI::init
 0.24    0.0001        1   0.000142     CGITempFile::find_tempdir
 0.18    0.0001        5   0.000022     CGI::param
 0.18    0.0001        1   0.000105     vars::import
 0.17    0.0001       10   0.000010     CGI::self_or_default
 0.13    0.0001        1   0.000080     CGI::import
 0.11    0.0001        3   0.000023     strict::import
 0.10    0.0001        1   0.000060     overload::OVERLOAD
 0.08    0.0000        1   0.000049     CGI::_setup_symbols
 0.08    0.0000        1   0.000048     CGI::initialize_globals
 0.08    0.0000        1   0.000048     <anon>:.../perl5/5.6.1/overload.pm:130
 0.08    0.0000        1   0.000048     constant::import
 0.07    0.0000        1   0.000043     <anon>:foo.pl:3
 0.07    0.0000        1   0.000042     CGI::delete
 0.07    0.0000        1   0.000041     <anon>:...usr/lib/perl5/5.6.1/CGI.pm:3
 0.07    0.0000        2   0.000020     CGI::charset
 0.06    0.0000        1   0.000039     <anon>:...ib/perl5/5.6.1/CGI/Util.pm:3
 0.06    0.0000        4   0.000010     strict::bits
 0.06    0.0000        1   0.000038     CGI::new
 0.05    0.0000        1   0.000032     <anon>:...b/perl5/5.6.1/constant.pm:86
 0.05    0.0000        1   0.000031     overload::import
 0.05    0.0000        4   0.000008     warnings::register::mkMask
 0.05    0.0000        1   0.000028     CGI::save_request
 0.04    0.0000        1   0.000026     warnings::import
 0.04    0.0000        1   0.000024     <anon>:...ib/perl5/5.6.1/constant.pm:3
 0.04    0.0000        1   0.000023     <anon>:...ib/perl5/5.6.1/constant.pm:5
 0.04    0.0000        1   0.000023     <anon>:...ib/perl5/5.6.1/CGI/Util.pm:4
 0.04    0.0000        1   0.000021     <anon>:foo.pl:4
 0.03    0.0000        2   0.000010     CGI::Util::rearrange
 0.03    0.0000        1   0.000018     strict::unimport
 0.03    0.0000        1   0.000017     warnings::bits
 0.02    0.0000        1   0.000013     CGI::expand_tags
 0.02    0.0000        1   0.000010     <anon>:...ib/perl5/5.6.1/constant.pm:4
 0.01    0.0000        3   0.000003     CGI::all_parameters
 0.00    0.0000        1   0.000003     UNIVERSAL::isa