while( my $line = <STDIN> ) {
    # do some stuff with $line
}