require PageRank;
my $PR = WWW::Google::PageRank->new;
use LWP::Simple qw($ua get);

foreach $siteurl (@websites) { ## Start main loop
  my $pagerank = $PR->get($siteurl);
  unless ($pagerank) { $pagerank = 0; } ## End unless  
  $ua->timeout(30);
  $ua->agent('Blah');
  my $html = get($website);
} ## End loop