Select Code to Download

Select or download this

#!/usr/bin/perl

...
<input type="submit">
</form>
__EOI__

Select or download this

$ perl -e'print <<"__EOI__";
POST /zzz.cgi HTTP/1.0
Host: www.example.com
...
00420   p   u   t       t   y   p   e   =   "   s   u   b   m   i   t
00440   "   >  \n   <   /   f   o   r   m   >  \n
00453

Select or download this

use strict;
use warnings;
...
#print($mech->value('key'), "\n");
use Devel::Peek qw( Dump );
Dump($mech->value('key'));

Select or download this

SV = PV(0x1167c20) at 0x11d05c0
  REFCNT = 1
...
  PV = 0x11572c0 "Ch\303\203\302\242teau"\0 [UTF8 "Ch\x{c3}\x{a2}teau"
+]
  CUR = 10
  LEN = 16

Select or download this

SV = PV(0x1167c20) at 0x11d05c0
  REFCNT = 1
...
  PV = 0x115bcf0 "Ch\303\242teau"\0 [UTF8 "Ch\x{e2}teau"]
  CUR = 8
  LEN = 16

Select or download this

SV = PV(0x1167c20) at 0x11d05c0
  REFCNT = 1
...
  PV = 0x115bcf0 "Ch\342teau"\0
  CUR = 7
  LEN = 16

Select or download this
```
"Ch\303\242teau"
```

Select or download this

#$mech->field('key', $val);
$mech->field('key', encode('iso-8859-15', $val));
$mech->submit();

Select or download this
```
"Ch\303\242teau"
```