#!/usr/bin/perl --
use strict;
use warnings;
use WWW::Mechanize 1.73;
use Web::Scraper 0.37;
use Data::Dump;


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

my $mech = WWW::Mechanize->new(qw/ autocheck 1 /);
$mech->show_progress(1);

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


if( $mech->follow_link( url_regex => qr/cites/i, n => 1 ) ){
    my $result  = $mech->content;
    my $indi    = $mech->uri();
    my $res     = $out->scrape( $result, $indi );
#~     dd( $result, $res );
    dd( $res );
}

__END__
$ perl web-scraper-google-pm1057095.pl
** GET http://scholar.google.it/scholar?hl=en&q=Handbuch+der+biologischen+Arbeitsmethoden ==> 200 OK (1s)
** GET http://scholar.google.it/scholar?cites=3692889479872081319&as_sdt=2005&sciodt=0,5&hl=en&oe=ASCII ==> 200 OK
{ title => [{}, {}, {}, {}, {}, {}, {}, {}, {}, {}] }