#!/usr/bin/perl

use Socket;
use FileHandle;

$URL = $ARGV[0];

if ($URL =~ /(?:http:\/\/){0,}([A-Za-z0-9\.-]+)\//){$Server = $1;}
socket(SH, AF_INET, SOCK_STREAM, getprotobyname('tcp')) || die $!;
$dest = sockaddr_in (80, inet_aton($Server));
connect (SH, $dest) || die $!;
SH->autoflush(1);
print SH "GET $URL\n";
while(<SH>){print;}
exit;