Select Code to Download

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

$subref->();

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

mysub();