Create an RFC822 compliant date in Perl
1 2 use Date::Manip qw(ParseDate UnixDate); 3 4 # Create an RFC822 compliant date (current time) 5 my $rfc822_format = "%a, %d %b %Y %H:%M %Z"; 6 my $today = ParseDate("Now"); 7 8 my $rfc822_date = UnixDate($today,$rfc822_format); 9