perl获取google pagerank

[root@Nagios s]# more pagerank.pl 
#!/usr/bin/perl -w
use strict;
use WWW::Google::PageRank;
my $u = $ARGV[0];
my $p = WWW::Google::PageRank->new;
if(!$ARGV[0]){
    print "undefined!\n./$0 baiqiuyi.com\n";
}else{
    print "Google PR is ",scalar($p->get('http://'.$u)), "\n";
}
[root@Nagios s]# perl pagerank.pl 
undefined!
./pagerank.pl baiqiuyi.com
[root@Nagios s]# perl pagerank.pl baiqiuyi.com
Google PR is 2

因为前阵子其中一台Linux服务器上的wordpress的站点全被挂了马，清理了一次没仔细查，这次全面检查了一下果然发现了个后门，但是来不及了 PR已经被降为2。
期间一次被Google列入会损害客户电脑的黑名单，导致PR由3变为了2我估计！
Google更新pageran后 我的博客pagerank=2
2009年4月3日 pagerank更新了