#!/usr/bin/perl -w
use strict;
use warnings;
use Orkut;

$|=1;
use Dumpvalue;
my $d= new Dumpvalue;


my $o= Orkut->new(OrkutCredentials);

my @comms;
for (1..28) {
    print "getting community category $_\n";
    push @comms, grep { ref } values %{ $o->GetCommunityList($_) };
}
for (@comms) {
    printf("%6d %5d %s\n", $_->{id}, $_->{nmembers}, $_->{name});
}
