Select Code to Download

$ perl -Mstrict -Mwarnings -MData::Dumper -E '
open my $inFH, q{<}, \ <<EOF or die $!;
...
            ]
          );
$