## bare block with redo to catch perl 5.008 accept loop interrupts 
## (see http://archive.develooper.com/macosx@perl.org/msg03022.html for details)
{
  while ( my $ns = $server->accept() ) 
  {
    # Normal accept loop here.
  }
  print "Got an interruption: $!\n";
  redo;
}

##</code><code>##

.