use strict;
use warnings;
use local::lib './lib';
use Data::Dumper;
use Mail::Outlook;
use Win32::OLE::Const 'Microsoft Outlook';

my $outlook = Mail::Outlook->new();
my $folder = $outlook->folder(olFolderInbox);
my $message = $folder->first();
my $accessor = "SenderName";
my %mail = map { $_ => $message->$_ } qw( SenderName To Cc Bcc Subject Body);
print Dumper(\%mail), "\n";