#!/usr/bin/perl -w

use LWP::UserAgent;

use strict;

my $agent = new LWP::UserAgent;

# Poor man's nalezení odkazů v HTML dokumentu. Dokument nasosneme
# metodou simple_request a pokud jde o text/html, pošleme na výsledný
# dokument (uložený celý v jedné skalární proměnné) regulární výraz,
# který plus mínus najde, co potřebujeme. Přesněji to dělá
# HTML::LinkExtor.
for my $link (@ARGV) {
	print STDERR "Will fetch $link.\n";
	my $response = $agent->simple_request(new HTTP::Request("GET", $link));
	unless ($response->is_success) {
		print $response->error_as_HTML;
		next;
	}

	if ($response->content_type eq 'text/html') {
		print "Got HTML, good.\n";
		my $content = $response->content;
		for ($content =~ /<A\s+HREF=(?:"(.+?)"|(.+?))>/sg) {
			next unless defined $_;
			print " -> $_\n";
		}
	}
}