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

print "Enter URL:\n";
my $temp = <STDIN>;
my $url = "http://".$temp;
chomp($url);
 
if (defined($url)) { 
         my $pr = WWW::Google::PageRank->new; 
         print scalar($pr->get($url)), "\n"; 
 } else { 
         print 'Page not specified!'. "\n"; 
 }