my $google = Net::Google->new(key=>LOCAL_GOOGLE_KEY); my $search = $google->search(); # Or replace "michael boyle" with $cgi->param("query") $search->query(qw(michael boyle)); $search->query("site:aaronland.net"); map { print $_->URL()."\n"; } @{$search->results()} # Prints : http://www.aaronland.net/weblog/theory/ http://www.aaronland.net/weblog/archive/936 http://www.aaronland.net/weblog/archive/1951 http://www.aaronland.net/weblog/category/40see also : Nathan Torkington on commercial web services