Select Code to Download

if (substr($_, 0, 4) eq "sub ")

for ($intree->{contents})

for my $contents ($intree->{contents})

if (ref($contents) eq 'CODE') {
   return $contents->(
...
      evalTree($intree->{right}, $param),
   );
}

sub func { ... }
my $ref = \&func;

my $ref = sub { ... };