<link href=...> <meta content=...> ##</code><code>## use strict; use WWW::Mechanize; my $mech = WWW::Mechanize->new(); $mech->get("any url"); my @links = $mech->links(); for my $link (@links) { printf "%s\n",$link->url; }