#!/usr/bin/perl

# bulk page rank checker
# usage: pr.pl domain1.com domain2.com domain3.com

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

if (defined(@ARGV)) {
for (@ARGV) {
   $url = $_;
   $url = "http://" . $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;