...
  $look = IO::Socket::INET->new( PeerAddr => $_, Proto => 'tcp', Timeout => 5 ) or die @$;<br>
<br>
            $sock4 = pack( "CCS", 4, 1, 80 );<br>
<br>
            print $look $sock4;<br>
<br>
            read( $look, $recv, 10 );<br>
<br>
            ( $empty, $granted, $junk ) = unpack( "C C C6", $recv );<br>
<br>
            if( $granted == 0x5A )<br>
            {<br>
                    print " Yes\n";<br>
            }<br>
            else<br>
            {<br>
                    print " No\n";<br>
            }<br>
...<br>