$Server = IO::Socket::UNIX->new(Listen=>1, ...) or die;
while(1) {
  $sock = $Server->accept();
  next unless $sock;
  ...
}