use Win32::OLE::Variant;

my $ole_date = $item->{ReceivedTime};
print $ole_date->Date('dd/MM/yyyy'), ' ',
    $ole_date->Time('HH:mm:ss'), "\n";