代码语言：javascript复制
perl -e 'use IO::Socket;$s=IO::Socket::INET->new(PeerAddr =>"192.1681.1",PeerPort =>80,Timeout=>1,Proto =>"tcp") || die "$!"'
