my $wd = Win32::OLE::Const->Load("Microsoft Outlook");
foreach my $key (keys %$wd) {
    printf "$key = %s\n", $wd->{$key};
}

##</code><code>##

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";