$mechObject = WWW::Mechanize->new( autocheck => 1 );

    $mechObject -> get('http://www.google.co.uk/search?q='.$queryString.'&num=10&hl=en&client=firefox-a&rls=org.mozilla:en-GB:official&channel=np&prmd=imvns&ei=CCGtT-jcEeiw0QXRgaGoCQ&start=100&sa=N&biw=1440&bih=738');
    foreach my $link ($mechObject->links) {
	print "$link->url\n";
    }