#/usr/bin/perl use strict; use WWW::Google::PageRank; my $url = shift; exit unless $url; my $pr = WWW::Google::PageRank->new(); print scalar($pr->get(?http://$url?)),?\n?;