#!/usr/bin/perl
use strict;
use warnings;
use WWW::Google::PageRank;

# create a page rank object
my $ranker = WWW::Google::PageRank->new;

my @sites = ("http://www.yahoo.com", "http://www.google.com", "http://www.cplusplus.com", "http://www.amazon.com", "http://www.walmart.com");
push(@sites, ("http://www.0x4849.net", "http://www.cpan.org", "http://www.linkedin.com", "http://www.linode.com", "http://www.yogaisyouth.com") );

for my $s (@sites)
{
    # get the page rank for a site
    my $pr = $ranker->get($s);

    print "$s -- rank = $pr\n";
}