#!/usr/bin/perl -w

use strict;
use WWW::Google::PageRank;

my $url = $ARGV[0];
unless ($url) {
print "Usage $0 URL\n";
exit 1;
}

my $pr = WWW::Google::PageRank->new;
print "$url: ".$pr->get($ARGV[0])."\n";