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

##</code><code>##

$subref->();

##</code><code>##

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

##</code><code>##

mysub();