#! /usr/bin/perl
use strict;
use warnings;
use feature qw{ say };

use Time::Piece;

my $pattern = "%a, %d %b %Y %T";
my $str = 'Wed, 13 Jan 2021 17:22:23';

local $ENV{TZ} = 'CST';
my $u1 = Time::Piece->strptime($str, $pattern);
my $u2 = localtime($u1);
say $_->strftime('%F %T %Z') for $u1, $u2;

__END__
2021-01-13 17:22:23 UTC
2021-01-13 17:22:23 CST