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

##</code><code>##

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