$main::extsock = new IO::Handle;
$main::extsock = IO::Socket::INET->new(.......);
$self->select->add($main::extsock);