#/usr/bin/perl

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

my $url = shift;
exit unless $url;

my $pr = WWW::Google::PageRank->new();
print scalar($pr->get(?http://$url?)),?\n?;