How do I elegantly print the date in RFC822 format in Perl?

perl datetime date rfc822

Tom Feiner · Oct 5, 2008 · Viewed 10.9k times · Source

How can I elegantly print the date in RFC822 format in Perl?

Answer

use POSIX qw(strftime);
print strftime("%a, %d %b %Y %H:%M:%S %z", localtime(time())) . "\n";