use strict;
use warnings;
use Data::Dumper;
use WWW::Mechanize;

my $a = WWW::Mechanize->new();
$a->get( 'http://some.site.com.' );

print $_->url,"\n" for @{ $a->links };