REDO:
while (my $ns = $server->accept) {
  # Normal accept loop here.
}
print "Got an interruption: $!\n";
goto REDO;