#!/usr/bin/perl

use strict;
use warnings;

use WWW::Google::PageRank;

die "Usage: $0 http://..." unless @ARGV == 1;

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