use Email::Date::Format qw(email_date); my $header = email_date($date->epoch); Email::Simple->create( header => [ Date => $header, ], body => '...', );
Although it may work on older versions of perl, no guarantee is made that the minimum required version will not be increased. The version may be increased for any reason, and there is no promise that patches will be accepted to lower the minimum required perl.
my $date = email_date; # now my $date = email_date( time - 60*60 ); # one hour ago
"email_date" accepts an epoch value, such as the one returned by "time". It returns a string representing the date and time of the input, as specified in RFC 2822. If no input value is provided, the current value of "time" is used.
"email_date" is exported only if requested.
my $date = email_gmdate;
"email_gmdate" is identical to "email_date", but it will return a string indicating the time in Greenwich Mean Time, rather than local time.
"email_gmdate" is exported only if requested.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.