#!/usr/bin/perl

use WWW::Google::PageRank;

{

print 'Enter a domain: ';

chomp(my $domain = <STDIN>);

last if $domain eq 'q';

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

print 'PR: '.scalar($pr->get("http://$domain")), "\n";

redo;

}

Needless to say, I have used my favorite Perl loop This way you can check as many domains as you'd like. Of course you will need to install the perl module WWW::Google::PageRank first. For this purpose it might be a good idea to use cpan because there are a few dependencies and it will take time to install them manually.