for $cnt (1..3){
			my $url = "http://www.foo.com/p/$cnt";

			


			$mech = WWW::Mechanize->new();
			$mech->get($url) or die "no such url";
			@link{$cnt} = $mech->find_all_links(tag => "a", class => "foo") or die "can't find link";

			@link = @link{$cnt};

			$linksize = scalar @link;
		$hlink = "got $linksize :\n";

		print $hlink;
		$linkurl .= $_->url . "\n" for @link;
		print $linkurl;

			}