| Subject: | WWW::Search::Google returns the same results |
#!/usr/bin/perl
# This query on Google return 1 result.
# This script returns the result continually.
use WWW::Search;
$key='put a key here';
my $search = WWW::Search->new('Google', key => $key);
$search->native_query("necromantism DERO");
while ($result = $search->next_result()) {
print $result->title, "\n";
print $result->url, "\n";
print $result->description, "\n";
print "\n";
};