# cat testit
use HTML::SimpleLinkExtor;
use LWP::Simple;

$content = get('http://www.perlmonks.com');
$extor = HTML::SimpleLinkExtor->new();
$extor->parse($content);
for ($extor->links) {
   print "$_\n" if /http/
}

# perl testit
http://pair.com
http://promote.pair.com/i/pair-banner-current.gif
http://perlmonks.org/images/usermonkpics/BBQmonk.gif
http://www.perldoc.com/perl5.8.0/pod/func/unpack.html
http://www.perldoc.com/perl5.8.0/pod/func/vec.html
http://search.cpan.org/search?mode=module&query=Tree%3A%3ASimple
http://search.cpan.org/search?mode=module&query=Tree%3A%3ASimple%3A%3AVisitorFactory
http://search.cpan.org/search?mode=module&query=Tree%3A%3ASimple%3A%3AVisitorFactory
http://rio.pm.org/
http://www.conisli.org.br/
http://tinymicros.com/pm/index.php?goto=OverallStats
http://www.cafepress.com/perlmonks,perlmonks_too,pm_more
http://aegis.sourceforge.net/
http://www.gnu.org/software/gnu-arch/
http://www.bitmover.com/bitkeeper
http://www.cvshome.org
http://www.perforce.com
http://msdn.microsoft.com/vstudio/previous/ssafe/
http://subversion.tigris.org
http://everydevel.com
http://yetanother.org
http://promote.pair.com/direct.pl?perlmonks.org