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