use Time::Piece;

my $date = localtime (time)->strftime ('%a, %d %b %Y %T %z');
[download]

works for me. YMMV.