#! /usr/bin/perl

# http://www.xav.com/perl/site/lib/lwpcook.html

use LWP::Simple;

&refer($ARGV[0]);

while (<>) {
	chop;
	&checklink($_);
}

sub checklink {
	local ($url) = (@_);
}