use strict;
use warnings;
use Time::Piece;

my $t = localtime();

my $pattern = "%a, %d %b %Y %T %Z";

my $str = $t->strftime ($pattern);
print "Time is:\n", $str, "\n";

__END__
example:

Time is:
Wed, 13 Jan 2021 23:08:46 Pacific Standard Time