unless ($peer = accept(NS, S)) {
    die "Can't accept a connection: $!\n";
}
