Select Code to Download

#!perl -w
print <<EOF;
...
line two
line three
EOF

use IO::Handle;
use IPC::Open2;
...
   chomp;
   print "test3:[$_]\n";
}

C:\WINDOWS\Desktop>perl t.pl
test1:[Line one]
test1:[line two]
...
test3:[Line one]
test3:[line two]
test3:[line three]

    binmode $rdrfh, ':crlf';