if($opt{listener}) { my $listener = BCVI::Listener->new(%opt); $listener->loop(); }
package BCVI::Listener; use IO::Socket::INET; use IO::Select; use Scalar::Util qw(refaddr); use File::Spec; use POSIX qw(:errno_h);