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