use CGI qw(-oldstyle_urls);

##</code><code>##

$VAR1 = bless( {
                 'strerrortext' => [
                                     'strerror'
                                   ],
                 'strxmltext' => [
                                   '<testproblem>ti'
                                 ],
                 '.parameters' => [
                                    'strxmltext',
                                    'me</testproblem>',
                                    'strerrortext'
                                  ],
                 'me</testproblem>' => [
                                         ''
                                       ],
                 '.charset' => 'ISO-8859-1',
                 '.fieldnames' => {},
                 'escape' => 1
               }, 'CGI' );

##</code><code>##

 
<testproblem>ti;me</testproblem>