my $google = Net::Google->new(key=>LOCAL_GOOGLE_KEY);
my $search = $google->search();
$search->query(qw(aaron cope));
map { print $_->title()."\n"; } @{$search->results()};
See docs for details and caveats. A note for people arriving from the soapware.org listings : the most recent version of Net::Google can be found on the CPAN.