Select Code to Download

$ perl -Mstrict -Mwarnings -E '
open my $inFH, q{<}, \ <<EOD or die $!;
...
Line 6
Line 7
$