Select Code to Download

{
  my $lexical = wrap 'some_sub', pre => \&wrapper;
...
{
  some_sub();#call made outside of lexical scope in which some_sub is 
+wrapped.
}