use strict;
use Win32::OLE;
use Mail::Outlook;

my $mail = new Mail::Outlook();
my $message = $mail->create();
my $Outlook = $message->{'outlook'};

print "
Perl               $] 
Win32::OLE Version ${Win32::OLE::VERSION}
Mail::Outlook      ${Mail::Outlook::VERSION};
Outlook            $Outlook->{'Version'}\n";