Select Code to Download

#!/usr/bin/perl

...
}
|);
print "F($ARGV[0]) is ", $safe->reval(qq|fibonacci($ARGV[0])|), "\n";

& 2e main  L<13><08>N
& 30 main p<FF><06><08>ON__
& 31 main  L<13><08>N
& 32 main p<FF><06><08>ON__

Safe::reval
   Safe::lexless_anon_sub
...
         main::fibonacci
            main::fibonacci
               (... and so on)

#!/usr/bin/perl

...
}
|);
print "F($ARGV[0]) is ", eval(qq|fibonacci($ARGV[0])|), "\n";

& 471 main <10><98>
id

while (<>) { print; last if /^PART2/ }
while (<>) {
...
        $prev = $_;
}
print $prev;

WeBWorK::PG::Translator::translate
   Safe::reval
...
         strict::unimport
      main::<88>'<AA><08>ON__
         main::DOCUMENT

WeBWorK::PG::Translator::translate
   Safe::reval
...
         strict::unimport
      main::<F8><CE><99><08>ON__
         main::DOCUMENT

WeBWorK::PG::Translator::translate
   Safe::reval
...
         strict::unimport
      main::__ANON__
         main::DOCUMENT