139: socket($c,AF_INET,SOCK_STREAM,0)&&connect($c,sockaddr_in$ARGV[1],inet_aton$ARGV[0])||die$!;fcntl$_,F_SETFL,O_NONBLOCK|fcntl$_,F_GETFL,0 for

##</code><code>##

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

##</code><code>##

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