Select Code to Download

johngg@abouriou:~/perl/Monks$ perl -Mstrict -Mwarnings -E '
open my $inFH, q{<}, \ <<__EOD__ or die $!;
...

this line does not match
this SUM is wro