while(my $line = <>) { # reads from stdin
   print $line; # prints everything to stdout
}