Select Code to Download

$ perl -MPath::Tiny -Mstrict -Mautodie -wE '
my $file = Path::Tiny->tempfile;
...
print "4: $_" while (<$FH4>);
close $FH4;
'

2: foo
2: bar
...
4: bar
4: baz
4: I was here