Select Code to Download

sub max { my $m;
          for (@_) {
...
            $m = $_, next if $m < $_;
          }
          $m }

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