Select Code to Download

Select or download this

#!/usr/bin/perl -T -w

...
          $cgi->submit(-name => "submit", -value => "submit" );
}
print $cgi->end_form, $cgi->end_html;

Select or download this

<!DOCTYPE html
    PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
...
<input type="text" name="testtext" value="&#1092;&#1091;&#1073;&#1072;
+&#1088;" /><input type="hidden" name="testtext_hid" value="&#1092;&#1
+091;&#1073;&#1072;&#1088;"  /><input type="submit" name="submit" valu
+e="submit" /></form>
</body>
</html>

Select or download this

...<input type="hidden" name="testtext_hid" value="б&#132;б&#131;аБаАб
+&#128;" />...

Select or download this

d1 84  d1 83  d0 b1  d0 b0  d1 80
 0444   0443   0431   0430   0440

Select or download this

c3 91  c2 84  c3 91  c2 83  c3 90  c2 b1  c3 90  c2 b0  c3 91  c2 80
 00d1   0084   00d1   0083   00d0   00b1   00d0   00b0   00d1   0080

Select or download this

if ( $$parms{submit} ) {
    my $newtest = decode( 'utf8', $$parms{testtext} );
...
    $cgi->hidden( "testtext_hid", $$parms{testtext_hid} );
        # note: changed text content slightly, and used "raw" hidden v
+alue (not "decoded" value)
}