sub add { use integers; my $result = eval {$_[0] + $_[1]}; return $result if (defined $result); goto &myadd; }