#!C:/perl/bin/perl -w

use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Outlook';

$|=1;
$Win32::OLE::Warn = 3;

my $Outlook = Win32::OLE->GetActiveObject('Outlook.Application') or Win32::OLE->new('Outlook.
+Application', 'Quit');
my $ol = Win32::OLE::Const->Load($Outlook);

my $namespace = $Outlook->GetNameSpace("MAPI") or die "Can't open MAPI namespace: $!";

my $Folder1 = $namespace->GetDefaultFolder(olFolderInbox);
my $Folder2 = $Folder1->Folders("TEST");

foreach my $item (in $Folder2->{Items}){
    print $item->{'ReplyRecipientNames'} . "\n";
}

exit 0;