An easy way to generate an RFC-compliant Date header string is to use time2str() from Date::Format:

use Date::Format qw(time2str);
my $date = time2str('%a, %d %b %Y %H:%M:%S %z', time));
[download]