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

##</code><code>##

#!/usr/bin/perl
# no -w
# no strict

eval {
  ... the rest of the program...
};

die $@ if $@;