WWW::Google::PageRank

こんなスクリプトを保存しておいて

#!/usr/bin/perl
use strict;
use warnings;

use WWW::Google::PageRank;

my $g = WWW::Google::PageRank->new;
my $p = $g->get(shift);
print $p,"\n";

実行すると

[name@host]$ pagerank http://haro.jp/
4

とかなって、ひまつぶし 参考になる