Select Code to Download

while (my $conn = $socket->accept) {

$SIG{CHLD} = "IGNORE";

use POSIX qw(EINTR);
...
...
   }
   ....
}