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

##</code><code>##

$SIG{CHLD} = "IGNORE";

##</code><code>##

use POSIX qw(EINTR);
...
while (1) {
   my $conn = $socket->accept;
   if (!$conn) {
       warn("Accept error: $!" if $! != EINTR;
       next;
   }
   ....
}