# pseudocode:

my $parent = Net::Google::Calendar->new;
$parent->login( $uname, $upass);

my @cals = $parent->get_calendars;

for my $cal_selected (@cals) {
   printf "CALENDAR: %s\n", $cal_selected->title;

   $parent->set_calendar( $cal );

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