#!/usr/bin/perl
use Socket;
use strict;

my $line;
my $URL = "http://www.yahoo.com";
$URL =~ s/http\:\/\///;
my ($HOST,@temppage) = split('/', $URL);
my $PAGE = join('/', @temppage);
if(!$PAGE) { $PAGE = "/"; }
$PAGE = "/$PAGE";

open(OUTFILE, ">html.out");
socket(HTML, PF_INET, SOCK_STREAM, getprotobyname('tcp')) || die $!;
connect(HTML, sockaddr_in(80,inet_aton($HOST)));

my $REQUEST = "GET $PAGE HTTP/1.0\n\n";
send(HTML, $REQUEST, '');

while(<HTML>)
{
 print OUTFILE;
}
close HTML;
close OUTFILE;