Help for this page

Select Code to Download


  1. or download this
    *$ = sub{
    $a=q;}die;;
...
};
s[]{82G5S="!A;F]T:&5R(%!E<FP\@:&%C:V5R}six;
die &$ => $/;
  2. or download this
    *$=sub{
    unpack "u", $_;
};
$_='82G5S="!A;F]T:&5R(%!E<FP@:&%C:V5R';
die &$, $/;
  3. or download this
    die unpack ("u", '82G5S="!A;F]T:&5R(%!E<FP@:&%C:V5R'), $/;