Select Code to Download

$ perl -Mstrict -Mwarnings -MData::Dumper -e '
sub groupsOf (&$@);
...
         ]
       );
$

$ perl -Mstrict -Mwarnings -E '
> open my $inFH, q{<}, \ <<EOD or die $!;
...
$i - d; $j - e; $k - f
$i - g; $j - h; $k - undef
$