Select Code to Download

while (my $line = $socket->getline() ) {
                     chomp $line;
                     print {$file_handle} $line;
                 }

foreach my $child (@hosts) {

...
                 push @children, $pid;
             }
         }