Help for this page

Select Code to Download

Select or download this

use Encode;
my $chapid = CGI::param('chap-id');
my $chapchalange = CGI::param('chap-challenge');
$chapid = Encode::decode('CP1251', $chapid, Encode::FB_CROAK);
$chapchalange = Encode::decode('CP1251', $chapchalange, Encode::FB_CRO
+AK);

Select or download this

---------print chapid to STDERR-----------------
\027
...
  PV = 0x80d35f5d8 "\\027"\0 [UTF8 "\\027"]
  CUR = 4
  LEN = 8