#!/usr/bin/perl

use WWW::Google::PageRank;
my $pr = WWW::Google::PageRank->new;

foreach my $site (@ARGV) {
	if ( $site !~ /^http/i ) { $site = "http://$site"; } 
	print "$site tem pagerank " . scalar($pr->get($site)) . "\n";
}
