Select Code to Download

    if (/^sub /) {
      return eval->(
                  evalTree($intree->{left},$param),
                  evalTree($intree->{right},$param)
                 );

#!/usr/bin/perl
# no -w
...
};

die $@ if $@;