Select Code to Download

my $head = MIME::Head->read( \*FILE ); # TODO : Does it read the WHOLE
+ email or skips the remaining mail after reading the header?
$head->unfold;
...
print $head->get('Message-ID');
print $head->get('from');
print $head->get('date');

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

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