#!/usr/bin/perl

use IO::Socket;

if ($#ARGV < 1) { die "webget <server> <document>\n" }

$server = $ARGV[0];
$document = $ARGV[1];

$remote = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>$server, PeerPort=>"80", Reuse=>1)
 or die "Can't connect to \"$server\"\n";
# set buffering off
$remote->autoflush(1);
# write HTTP request to server
print $remote "GET $document HTTP/1.0\n\n";
# receive everything the server sends and print it to the screen
while (<$remote>) { print }
close $remote;