use warnings;
use strict;
use WWW::Mechanize;

my $w = WWW::Mechanize->new();
$w->get('http://perlmonks.org/');

foreach ($w->find_all_links) {
    print $_->url,"\n";
}