use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->get($url);
print $mech->content;
my @links = $mech->all_links();
my @someLinks = $mech->find_all_links( ... );