my $mech = WWW::Mechanize->new();
 $mech->get( $url );
 my @links = $mech->links();
 print Dumper (@links);