while (defined(my $line = <STDIN>)) {
  &do_something_with($line);
}