Select Code to Download

...
# This message is print, so I do get here!
...
    $line = <SOCK>;
    print "\nGot1: ", $line;
...

...
$SIG{CHLD} = \&REAPER;
...
 my($port,$iaddr) = sockaddr_in($paddr);
 my $name = gethostbyaddr($iaddr,AF_INET);
...