my $remote = IO::Socket::INET->new( Proto => 'tcp',
			 	PeerAddr => $ADDRESS,
				PeerPort  => $PORT
				)
	or die "cannot connect to server";
$remote->autoflush(1);

open(OUT, ">out.txt");
print $remote "GET /theFile.txt HTTP/1.1\r\n";
print $remote "Host: $ADDRESS:$PORT\r\n";
print $remote "Connection: close\r\n";
print $remote "\r\n";

while( <$remote> )
{
	print OUT $_;
}
close $remote;