while (my $line = <SUB>) {
     # do something with $line...

     # then print it out:
     print $line;
   }