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

$|++;
$Win32::OLE::Warn = 3; # Fail on errors

my $OL = Win32::OLE->GetActiveObject('Outlook.Application')
	    || Win32::OLE->new('Outlook.Application', 'Quit');

    my $NameSpace = $OL->GetNameSpace("MAPI");
    my $Folder = $NameSpace->GetDefaultFolder(olFolderInbox);
    
   foreach my $msg (in $Folder->{Items}){
       ##Do something with them.
   }