#!/usr/bin/perl

use WWW::Google::PageRank;
my ($pr, $rank, $url);

if (defined(@ARGV)) {
for (@ARGV) {
   $url = $_;
   $url = "http://www." . $url if ($url !~ /^http:\/\//);
   $pr = WWW::Google::PageRank->new();
   $rank = $pr->get($url);
   print "$url has a PageRank of ";
   if (defined($rank)) {
      print "$rank\n";
   }
   else {
      print "UNDEFINED\n";
        }
  }

}

else {
   print "You must specify a URL ...\n";
}

exit;