use Socket;

use strict;
use warnings;

socket(YAHOO, PF_INET, SOCK_STREAM, getprotobyname('tcp')) || die "socket: $!";
connect(YAHOO, sockaddr_in(80, inet_aton("www.yahoo.com"))) || die "connect: $!";
syswrite(YAHOO, "GET / HTTP/1.1\r\nHost: www.yahoo.com\r\n\r\n");
read_one_line(*YAHOO);
read_one_line(*YAHOO);

sub read_one_line {
	my $sock = shift;
	my $line = <$sock>;
	print $line;
}