use IO::Socket::INET;
my $s = IO::Socket::INET->new("www.perl.org:80");