while(my $url = shift @ARGV) {
    unless($url =~ m{^http://([A-Za-z0-9\.\-]+)/(.*)$}) {
        print "$0: invalid url: $url\n";
        next;
    }

    my($host, $uri) = ($1, $2);
    my $remote = IO::Socket::INET->new(Proto => "tcp",
                                       PeerAddr => $host,
                                       PeerPort => "http(80)");

    unless ($remote) { 
        die "Cannot connect to http daemon on $host\n"
    }

    $remote->autoflush(1);
    print $remote "GET /$uri HTTP/1.0\nHost: $host" . $BLANK;
    print while(<$remote>);
    print "\n$sep";
    close $remote;
}