use POSIX ();
use Time::HiRes ();
-use vars qw{$VERSION};
-$VERSION = "1.61";
-
use warnings;
no warnings qw(deprecated);
use Errno qw(EINPROGRESS EWOULDBLOCK EISCONN ENOTSOCK
EPIPE EAGAIN EBADF ECONNRESET ENOPROTOOPT);
-use Socket qw(IPPROTO_TCP);
use Carp qw(croak confess);
use constant DebugLevel => 0;