Select Code to Download

#!perl -l
#
...
foo => 2
hgrep result:
bar => 2

sub hmap (&%) {
    my $code = shift;
...
bazl => 4
barl => 3
fool => 2