Select Code to Download

while(my @ready = $select->can_read) {
...
...
           $processeddata .= $data;
...
}

      if( ! defined $length || $length == 0 ) {
        $err .= "Error from child: $!\n" unless defined $length;
        $select->remove($fh);
      }