###

#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;
use LWP::UserAgent;
use Web::Scraper;

my $mech = WWW::Mechanize->new();

$mech->get("http://scholar.google.it/scholar?hl=en&q=Handbuch+der+biologischen+Arbeitsmethoden");  	


my $response = $mech->follow_link( url_regex => qr/cites/i, n=>1 ); 	

my $result = $response->decoded_content;
 
my $indi = $mech->uri();

open (F3,'>'results.txt') or die "$!";		

my $out = scraper{
process ".gs_rt", "title[]" => scraper {
process ".gs_a", "info" => 'TEXT';
process ".gs_fl", "cites" => 'TEXT';
};
};


my $res = $out->scrape($result, $indi);

for my $out (@{$res->{out}}) {
    print F3 "$out->{title} $out->{info} $out->{info}\n";
}

sleep(3);

close(F3);