pbot/modules/gtop10.pl

#!/usr/bin/perl -w -I /home/msmud/lib/lib/perl5/site_perl/5.10.0/

use LWP::Simple;

my $html;

$html = get("http://www.google.com/press/zeitgeist.html");

defined $html or die "Oops, couldn't get the data.";


print "Top 10 Google search queries: ";

while($html =~ m/<td class="bodytext2" .*?<a class="style10".*?>(.*?)<\/a>/g)
{
  print "$1, ";
}