Select Code to Download

sub do_this (&$$;@)  {
    my $code = shift;
...


do_this {$_ += 1}  do_it => $o,  'fred';