#!perl
# pipetest.pl
use strict; use warnings;

while (<STDIN>) {
	print "$_\n";
}

##</code><code>##

C:/> ./pipetest.pl < somefile

C:/> 

##</code><code>##

C:/> ./pipetest.pl
fsanlfga
fsanlfga