Select Code to Download

        $sock = new IO::Socket::INET(
...
                die "fork: $!" unless defined $kid;
                close $sock;
                if (&readfromsocket(*new_sock)){

 
      if (defined($lineread = <$new_sock>)) {whatever}