#!/usr/bin/perl
use strict;
use warnings;

use Win32::OLE;
use Win32::OLE::Const 'Microsoft Outlook';

my $Outlook = Win32::OLE->GetActiveObject('Outlook.Application');
my $NameSpace = $Outlook->GetNameSpace("MAPI");
my $Folder = $NameSpace->GetDefaultFolder(olFolderInbox);

# print subject for each item
for (my $i = 1; $i <= $Folder->Items->Count; $i++) {
  
  print $Folder->Items->Item($i)->Subject . "\n";
  
}