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

Makeshifts last the longest.