#!/usr/local/bin/perl -w
# a sort of geturl...

use IO::Socket;

my $server = shift;
my $fh = IO::Socket::INET->new("$server:80")
	or die "can't socket $!\n";

print $fh "GET / HTTP/1.0\n\n";

my @lines = <$fh>
	or die "can't lines $!\n";
print "$#lines\n";
print "@lines\n";