while (my $line = <STDIN>) {

    &do_something_with($line);

}