my $Folder = $namespace->Folders("Personal Folders");
my $Items = $Folder->Items;
my $sheetcnt = $namespace->Folders->Count();
foreach (1..$sheetcnt){
   $Folder = $namespace->Folders($_)->{Name};
   print "\t" .$Folder ."\n";
#   my $subfolder = $namespace->Folders($Folder)->MAPIFolder->Count();
#   foreach (1..$subfolder){
#      print "\t" .$namespace->Folders($Folder)->MAPIFolder($_)->{Name}. "\n";
#   }
}