use Net::Google::Calendar;
use Smart::Comments '###';

my $c = Net::Google::Calendar->new;
$c->login( $username, $password );

my @calendars = $c->get_calendars;
# great, this works- it returns a 5 element list

# this next line however.. 
my @e = $c->get_events;
warn "ecount ".@e;
### @e


for my $cal (@calendars){
   printf "title %s, id %s\n", $cal->title, $cal->id;

   my @e = $cal->get_events;
   for (@e){
      printf "event %s %s\n", $_->title, $_->content->body;
   }
}