use strict;
use warnings;
use 5.010;
use DateTime;
use DateTime::Format::Strptime;
$|=1;

my $str = 'Wed, 13 Jan 2021 17:22:23';
my $pattern = '%a, %d %b %Y %T';
my $strp = DateTime::Format::Strptime->new(
       pattern  => $pattern,
       time_zone => 'CST',
       zone_map => { CST => '-0700', EST => '-0600' }
       );
say "I got this far (not!)";       
my $dt = $strp->parse_datetime( $str );       
say "String:   $str";
say "DateTime: $dt";
say '';      
      
__END__
Invalid offset: CST