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