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