while (<STDIN> or <TNIN>) {
   if (we_read_from_STDIN()) {
      print TNOUT do_this($_);
   } else {
      print STDOUT do_that($_);
   }
}