foreach my $item (in $Inbox->{Items})

print "=========================================================== \n";
print "subject    : ", $item->{Subject}, "\n",
print "Sent by    : ", $item->{SenderName}, "\n";
print "Received at: ", $item->{ReceivedTime}, " \n";

##</code><code>##

Received at: Win32::OLE::Variant=SCALAR(0x1cb00cc)