#!/usr/bin/perl -w
#
# Copyright (C) 1999 B.W. van Schooten

require 5.002;
#use strict;
use Socket;

# get host and port
$remote  = $ARGV[0];
$remote =~ s/^http:\/\///;
$remote =~ s/\/.*//;
$port    = $remote;
$port   =~ s/.*://;
$remote =~ s/:.*//;
if ($port =~ /\D/) {$port=80;}

# open connection
$iaddr   = inet_aton($remote)               || die "no host: $remote";
$paddr   = sockaddr_in($port, $iaddr);
$proto   = getprotobyname('tcp');
socket(SOCK, PF_INET, SOCK_STREAM, $proto)  || die "socket: $!";
connect(SOCK, $paddr)    || die "connect: $!";
select SOCK;
$|=1;
select STDOUT;

# do I/O
$path  = $ARGV[0];
$path =~ s/^http:\/\///;
$path =~ /(\/.*)/;
print SOCK "GET $1\n\n";
while ($line = <SOCK>) {
	print $line;
}

# close
close (SOCK)            || die "close: $!";