my @links = $mech->links;
foreach $href_links (@links)
{
	#URL
	my $lnk = $href_links->url();

	#Text
	my $txt = $href_links->text();
	print $lnk."\t".$txt."\n";
}