my $code = 'sub { my $arg = shift; warn $arg; }';