print "$it->{ReceivedTime} $it->{Subject}\n";

##</code><code>##

#-------------------my sub-----------------------
sub time{
my $var = Variant(VT_DATE,$it->{ReceivedTime} );
    my    $OleObject->{value} = $var;
    my    $OleObject->Method($var);
}
#------------------------------------------------

##</code><code>##

my $subj = $it->{Subject};