use SETI::WebStats;

my $emailAddr  = "foo\@bar.org";
my $seti       = SETI::WebStats->new($emailAddr);

my $ranking    = $seti->rank;
my $unitsProcd = $seti->numResults;

my $userInfo   = $seti->userInfo;
for (keys(%$userInfo)) {
   print $_, "->", $userInfo->{$_}, "\n";
}