Help for this page

Select Code to Download


  1. or download this
    $_ = "1234567890";
tr [357]
...
   [\10\10\10]cd;
print join('', map sprintf("\\%o",ord), split //), $/;
# prints \10\10\10\3\5\7
  2. or download this
    __SIG__
use B;
printf "You are here %08x\n", unpack "L!", unpack "P4", pack
  "L!", B::svref_2object(sub{})->OUTSIDE;