Select Code to Download

$ perl -Mstrict -Mwarnings -E '
> open my $inFH, q{<}, \ <<EOF or die $!;
...
> }'
port is = 19: speed is = 1000: link is = up
$