use strict;
use warnings;

use LWP::UserAgent;
use HTML::SimpleLinkExtor;

my $agent = LWP::UserAgent->new;
my $extor = HTML::SimpleLinkExtor->new('http://www.perlmonks.org/');

$extor->parse_url('http://www.perlmonks.org');

print "Checking $_: ", $agent->head($_)->code, "\n" for $extor->links