sub getLinks
{
	my $url = shift;
	my $ua = LWP::UserAgent->new;
	my $p = HTML::LinkExtor->new(\&callback);
	
	# Request document and parse it as it arrives
	my $res = $ua->request(HTTP::Request->new(GET => $url),
	              sub {$p->parse($_[0])});
	
	print  $res->code;
	# Expand all image URLs to absolute ones
	my $base = $res->base;
	
	@links = map { $_ = url($_, $base)->abs; } @links;
	return @links;
}

sub callback
{
	my($tag, %attr) = @_;
	return if $tag ne 'a';
	push(@links, values %attr);
}