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.