use Time::Piece;

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