pbot/modules/gspy.pl

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

# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.

use LWP::Simple;

my $html;

$html = get("http://www.metaspy.com/info.metac.spy/metaspy/unfiltered.htm");

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


print "Recent search queries: ";

while ($html =~ m/redir\.htm\?qkw\=(.*?)\"/g)
{
  print "$1, ";
}