Select Code to Download

my $coderef = eval "BEGIN{goto skip;}sub { $code } BEGIN{skip: print '
+Skipped!'}";

use Safe;

...
my $coderef = $compartment->reval("sub{$code}") or die "$@";

$coderef->(); # execute the code