while ( my $line = <STDIN> ) {
    ...
}