2 # Filename: gsuggest.pl
3 # Purpose: google suggest - ask google for keyword suggestions
4 # Authors: grml-team (grml.org), (c) Michael Prokop <mika@grml.org>
5 # Bug-Reports: see http://grml.org/bugs/
6 # License: This file is licensed under the GPL v2.
7 # Latest change: Mit Jän 10 23:40:04 CET 2007 [mika]
8 ################################################################################
12 use WebService::Google::Suggest;
15 print "usage: gsuggest <keyword[s]>\n";
19 my $suggest = WebService::Google::Suggest->new();
22 my @suggestions = $suggest->complete(shift);
23 for my $suggestion (@suggestions) {
24 print "$suggestion->{query}: $suggestion->{results} results\n";
28 ## END OF FILE #################################################################