#! D:\Straberry\perl\bin\perl -w
use strict;
use Win32::OLE qw/in/;
#use Win32::OLE::Const 'Outlook.Application';
#use Win32::OLE::Variant;

my $OL = Win32::OLE->GetActiveObject('Outlook.Application') || Win32::OLE->new('Outlook.Application') or die "$!\n";;
my $NameSpace = $OL->GetNameSpace("MAPI");
my $Folder = $NameSpace->GetDefaultFolder("olFolderInbox");

#print ref($Folder->{Items}) . "\n";

foreach my $subfolder ( in $Folder->Folders) {
   printf "%s\n", $subfolder->{Name};
}