#!/usr/bin/perl

use LWP::Simple;                  # http://search.cpan.org/dist/libwww-perl/lib/LWP/Simple.pm

$url = $ARGV[0];
# $dohead = $ARGV[1];

$url = "http://$url" unless $url =~ m|^https?//|i;

# $dohead = 1;

if ($dohead) {
	@info = head($url);

	for $i (@info) {
		print "$i\n";
	}
	print "\n";
}

$doc = get($url); # FETCH THE URL

print $doc;