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

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