#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';

use POSIX 'strftime';
use POSIX::strftime::GNU;
say POSIX::strftime('%a, %d %b %Y %T %z', localtime);

__END__

$ perl test.pl
Mon, 09 Oct 2017 10:57:25 +0200