#!/usr/bin/perl
# vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4:

use strict;
use warnings;

use Carp;
use Time::Piece;

$SIG{__WARN__} = sub { Carp::cluck @_;   };
$SIG{__DIE__}  = sub { Carp::confess @_; };

$| = 1;

my $t = localtime;

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

my $str = $t->strftime( $pattern );
print "Time is:\n", $str, "\n";
# Format: Wed, 13 Jan 2021 17:22:23 CST

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