#!/usr/bin/perl -w 
use strict;

use Socket;

my $proto = getprotobyname('tcp');
my $host	= inet_aton('www.perlmonks.com') || die ("no host: $!\n");
my $paddr	= sockaddr_in(80, $host);

socket(SOCK, AF_INET, SOCK_STREAM, $proto) ||
		die "Unable to connect socket: $!\n";
connect(SOCK, $paddr)				   ||
		die "Unable to connect socket: $!\n";

my $get  = "GET / HTTP/1.0\x0d\x0aUser-Agent: IE_SUCKS\x0d\x0a\x0d\x0a";
syswrite (SOCK, $get, length($get));
my $data = join '', (<SOCK>);

open (OUTT, ">test1.dat") or die "Couldn't open file: $!\n";
syswrite (OUTT, $data, length($data));
close (OUTT);

close(SOCK);