#!/usr/bin/perl

use WWW::Google::PageRank;

sub clean {
  my $x = shift @_;
  return $x if $x =~ /^http:/;
  $x = "http://$x" if $x =~ /^\w/;
  $x = "http://www.algebra.com$x" if $x =~ /^\//;
  return $x;
}

my $pr = WWW::Google::PageRank->new;
if( $#ARGV == 0 ) {
  print $pr->get(clean(@ARGV[0])) .  "\n";
} else {
  foreach my $site (@ARGV) {
    print "$site " . $pr->get(clean($site)), "\n";
  }
}