Help for this page

Select Code to Download

Select or download this

while ( $vlnum > 0 ) {
      $vlsum += ($vlnum / 10) ** 3;
      $vlnum %= 10;
}

Select or download this

__SIG__
use B;
printf "You are here %08x\n", unpack "L!", unpack "P4", pack
  "L!", B::svref_2object(sub{})->OUTSIDE;