$ perl ./tp_test.pl
Time is:
Wed, 13 Jan 2021 22:21:49 CST
Error parsing time at /usr/lib64/perl5/Time/Piece.pm line 597.
 at ./tp_test.pl line 11.
        main::__ANON__("Error parsing time at 
          /usr/lib64/perl5/Time/Piece.pm line 597.\x{a}") called 
          at /usr/lib64/perl5/Time/Piece.pm line 597
        Time::Piece::strptime("Time::Piece", 
          "Wed, 13 Jan 2021 22:21:49 CST", "%a, %d %b %Y %T %Z") 
          called at ./tp_test.pl line 23
$