my $calitems = $namespace->GetDefaultFolder(olFolderCalendar)->{Items};
my $it = $calitems->GetFirst;  #get the first Appointment item
foreach my $key (keys %$it)
{ print "$key = $it->{$key}\n"; }