Select Code to Download

open HANDLE, "some_script |";
push @INPUT, *HANDLE;
...
  }
  do_something_with_input();
}

use IO::Select;

...
if (@ready = $select->can_read(0)) {
    # input waiting on the filehandles in @ready
}