#!/usr/bin/perl
# simplified version
use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Outlook';

my $mailbox = "Mailbox - Silent11";
$Win32::OLE::Warn = 3;
my $outlook = Win32::OLE->new('OutLook.Application','Quit') or 
	die "Could not created outlook object."; 
my $ol = Win32::OLE::Const->Load($outlook);
my $inbox = $outlook->GetNameSpace("MAPI")->Folders($mailbox)->Folders("Inbox");


for (in $inbox->{Items}) {
	print "Subject : $_->{Subject}\n";
	print "Sender : $_->{SenderName}\n";
	print "Attachments : $_->{Attachments}{Count}\n";
	print "\n\n";
}