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');