my $s=""; 
while($s.=<STDIN>){print $s;}