A simple script for google hacking (rewrite it to a downloader lol)

google.pl

#!/usr/bin/env perl
 
use 5.014;
 
use Google::Search;
 
my $search = Google::Search->Web( query => "site:example.com something interesting" );
while ( my $result = $search->next ) {
    my $url = $result->uri;
    # url processing ?
    say $result->rank . " " . $url;
    # system("wget $url");
}