use strict;
use warnings;

use LWP::Simple;
use HTML::SimpleLinkExtor;

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

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

print "Checking $_: ", ( head($_) ? 'Good link' : 'Bad link' ), "\n"
    for $extor->links