my $sock = new IO::Socket::INET ( ... );