http://paperlined.org/dev/src/pl/old/mine_superfund/fill_ghits.pm

    use strict;
    use warnings;

    use lib '/home/interiot/cpan/lib/';

    use Data::Dumper;
    use LWP::Simple;
    use Net::Google;

    open FIN, "</home/interiot/.google.key" or die;
    (my $google_key = <FIN>) =~ s/\s$//is;
    close FIN;

    my $google = Net::Google->new(key=>$google_key);

foreach my $site (@{$::onedb->{sites}}) {
    my $search = $google->search();
    $search->return_estimatedTotal(1);
    $search->query($site->{CERCLIS_ID});

    my ($r) = @{$search->response()};
    $site->{CERCLIS_ID_ghits} = $r->estimatedTotalResultsCount();
    ::sync();

    print "$site->{CERCLIS_ID_ghits}\t$site->{CERCLIS_ID}\n";

    print "."; $|++;
}