use POSIX;

...

REDO_ACCEPT: {
  while ($client = $sock->accept())
  {
     ...
  }

  redo if $! == EINTR;
}