Select Code to Download

eval "sub { $code }";
die "Compilation failure: $@" if $@;

my $closure = eval "sub {\n$code\n}";