use HTTPFetch;
my $sock = HTTPFetch->connect('www.microsoft.com', 80) 
    or die "Couldn't connect: $!\n";