Select Code to Download

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

#-------------------my sub-----------------------
sub time{
...
    my    $OleObject->Method($var);
}
#------------------------------------------------

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