$subref=eval 'sub { your code here }'
die $@ if $@;
...