Select Code to Download

$ perl -Mstrict -Mwarnings -E '
open my $inFH, q{<}, \ <<EOD or die $!;
...
ws.dfsdferferfregregrgr fwfrwfrefergegregerefds
ws.abc.dsfsfsfwerfrwef ws.abc.asddwefewfewfewf ws.abc.fferfergregrfreg
$