while (chomp(my $line = <STDIN>)) {print $line;}