--- a/mime-construct	2012-10-07 21:01:11.849644407 +0200
+++ b/mime-construct	2015-02-24 00:00:15.843791068 +0100
@@ -28,6 +28,7 @@
 #    - continue long header lines I construct
 
 use Proc::WaitStat qw(close_die);
+use Email::Date::Format qw(email_date);
 
 (my $Me = $0) =~ s-.*/--;
 my # new line required for makemaker
@@ -491,6 +492,7 @@
 
     push @output, cont "To: ", join(", ", @to), "\n" if @to;
     push @output, cont "Cc: ", join(", ", @cc), "\n" if @cc;
+    push @output, cont "Date: ", email_date, "\n";
     push @output, cont "Subject: $subject\n" if $subject ne '';
 
     push @output, $header if $header ne '';