use strict;
use warnings;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Outlook';
my $outlook;
$outlook = Win32::OLE->new('Outlook.Application');
die unless $outlook;
my $namespace = $outlook->GetNamespace("MAPI");
my $folder = $namespace->GetDefaultFolder(6);
my $items = $folder->Items;
my $cnt=$items->Count;
for my $itemIndex (1..$items->Count) {
    my $message = $items->item($itemIndex);
    next if not defined $message;
     if ($message->{'Unread'}) {
        my $text = $message->Subject();
        my $from_user = $message->From();
        my $to_user = $message->To();
           print "Unread Email from $from_user and to $to_user\n";
    }
}