use WWW::Google::PageRank;

die "getpr.pl BaseURL RelativePaths...\n" if ($#ARGV < 0);


my $gprank = new WWW::Google::PageRank;
my $baseurl = shift(@ARGV);
if ($#ARGV < 0) {
    $ARGV[0] = "" 
} else {
    $baseurl .= "/" if ($baseurl =~ /[^\/]$/);
}


foreach (@ARGV) {
    my $url = $baseurl.$_;
    my $pr = $gprank->get($url);
    print "PageRank: ",$pr," : ",$url,"\n";
}