Select Code to Download

johngg@shiraz:~ > perl -Mstrict -Mwarnings -MData::Dumper -E '
open my $inFH, q{<}, \ <<EOF or die $!;
...
                           'THIRD' => '12345'
                         }
       );