Select Code to Download

my $f = sub { print "a: ", a(), " b: ", b(), "\n";};

sub mdo
{
...
   
   return $return;
}