use Win32;
use Win32::OLE 'in';

   my $objApp = Win32::OLE->GetActiveObject("Outlook.Application");

   my $objOutlook = $objApp->GetNameSpace("MAPI");
   my $objMAPIFolder = $objOutlook->GetDefaultFolder(6);

         foreach my $aItem (in $objOutlook->GetDefaultFolder(6)->Items) {
          if ($aItem->Unread) {
             my $sItem = Win32::OLE->CreateObject("Redemption.SafeMailItem");
             $sItem->{Item} = $aItem;
             $s .= $sItem->SenderName . " -- " . $sItem->Subject . "\n";

          }
       }