my $t = localtime;

##</code><code>##

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

my $pattern = "%a, %d %b %Y %T %Z";
my $str = 'Wed, 13 Jan 2021 17:22:23 CST';
my $u = Time::Piece->strptime($str, $pattern);

print "Time is:\n", $u->strftime($pattern), "\n";

##</code><code>##

Error parsing time at d:/berrybrew/5.30.1_32/perl/lib/Time/Piece.pm line 597.