use IO::Socket::Inet;; $sock = IO::Socket::INET->new( PeerAddr => 'www.perl.org', PeerPort => 'http(80)', Proto => 'tcp' );; print $sock;; IO::Socket::INET=GLOB(0x1a05ec0)