use Date::Manip qw(ParseDate UnixDate); # Create an RFC822 compliant date (current time) my $rfc822_format = "%a, %d %b %Y %H:%M %Z"; my $today = ParseDate("Now"); my $rfc822_date = UnixDate($today,$rfc822_format);
You need to create an account or log in to post comments to this site.