eval 'sub mysub { your code here }';
die $@ if $@;