>>244

IO::Socket の connect()メソッドのコードを見よ。
ってかIO::Socket::INET使え。

$sock = IO::Socket::INET->new(
　　PeerAddr => $host,
　　PeerPort => $port,
　　Proto => 'tcp',
　　Timeout => 60,
);