Select Code to Download

$ perl -e '
> my %h=(qw(a b c d e f));
...
c => d
e => f
a => b

package OOEach;

...
    return ($k, $v);
}
;