Select Code to Download

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

use IO::Select qw( );

...
      }
   }
}

use IO::Select qw( );

...
      }
   }
}