Read Input via Pipe

$ cat file | perl script.pl

```perl
while (<>)
{
  print $_;
}

And for one line at a time:

foreach my $line (<>)
{
  print $line;
}

Resources