Select Code to Download

#!perl
# pipetest.pl
use strict; use warnings;
...
while (<STDIN>) {
    print "$_\n";
}

C:/> ./pipetest.pl < somefile

C:/>

C:/> ./pipetest.pl
fsanlfga
fsanlfga