99:  -MIO::Socket::INET $c=IO::Socket::INET->new(PeerHost,"$ARGV[0]:$ARGV[1]")||die$!;$_->blocking(0)for
95:  -MIO::Socket::INET $c=new IO::Socket::INET PeerHost,"$ARGV[0]:$ARGV[1]"or die$!;blocking$_ 0for
85:  -MIO::Socket::INET $c=new IO::Socket::INET"$ARGV[0]:$ARGV[1]"or die$!;blocking$_ 0for