use Mail::Outlook;
use Win32::OLE::Const 'Microsoft Outlook';
my $outlook = new Mail::Outlook();
my $folder = $outlook->folder('Inbox');
my $message = $folder->last();
my $text = $message->Subject();
my $text1 = $message->From();
print "From : $text1\n";
print "Subject : $text\n";