Try this (untested):

use Email::Folder;
use Date::Manip qw(ParseDate Date_Cmp);

my $folder = Email::Folder->new("some_file"); # or whatever

my @sorted_by_date = sort { Date_Cmp(ParseDate($a->header("Date")), Pa
+rseDate($b->header("Date")) } $folder->messages;
[download]