Select Code to Download

$_ = 'hi';
my $code = sub { print $_->{blah} . "\t" . $_->{moo} . "\n" };
Bar::hi($code);
...
  local $_ = { 'foo' => 2, 'blah' => 5, 'moo' => 'blah' };
  &$coderef;  # prints '5      blah'
}