BrowserUk's cool demonstration is working after removing the quotes for the require statement on line 10.

sub listener {
    my( $Qout ) = @_;
    require IO::Socket::INET::Daemon;   ## Requiring here means other 
+threads don't carry the redundant weight
    ...
}
[download]