my $code = q{
   # some generic sub
   my ($param1,$param2) = @_;

   do_stuff($param1);
   do_more_stuff($param2);

   return whatever_you_return_from($param1,$param2);
};

# ...

my $closure_to_this_scope = eval "sub {$code}";

# ...

my $closure_to_this_other_scope = eval "sub {$code}";

##</code><code>##

------------
:Wq
Not an editor command: Wq