#!/usr/bin/perl
# $Id: fetch-google-images,v 1.2 2005/01/31 16:26:10 rousse Exp $

use Getopt::Long;
use WWW::Google::Images;
use strict;

my %opts;
my $base = '';
my %options;
GetOptions(
    'base=s'       => \$base,
    'limit=i'      => \$options{limit},
    'regex=s'      => \$options{regex},
    'iregex=s'     => \$options{iregex},
    'min_size=s'   => \$options{min_size},
    'max_size=s'   => \$options{max_size},
    'min_width=s'  => \$options{min_width},
    'max_width=s'  => \$options{max_width},
    'min_height=s' => \$options{min_height},
    'max_height=s' => \$options{max_height},
);

my $agent = WWW::Google::Images->new();

while (my $item = <>) {
    chomp $item;
    my $result = $agent->search($item, %options);
    if ($result) {
	mkdir($item);
	$result->save_all_contents(dir => $item, base => $base);
    }
}
