my $head = MIME::Head->read( \*FILE ); # TODO : Does it read the WHOLE email or skips the remaining mail after reading the header?
$head->unfold;

# Was a "Subject:" field given?
# $subject_was_given = $head->count('subject');

print $head->get('subject');
print $head->get('Message-ID');
print $head->get('from');
print $head->get('date');

##</code><code>##

use Date::Manip;
Date_Init("ConvTZ=IGNORE","TZ=GMT");

my $date = UnixDate( $head->get('date') , '%Y_%m_%Q-%H%M%S');
print $date;