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/40
see also : Nathan Torkington on commercial web services