如何在Perl中解析日期和转换时区？

use strict;
use warnings;
use DateTime;
use DateTime::TimeZone;

# 解析日期
my $date_string = '2022-01-01T00:00:00';
my $date = DateTime->from_epoch(epoch => time);
$date->set_time_zone('Asia/Shanghai');

# 转换时区
my $new_tz = 'America/New_York';
my $new_date = $date->clone->set_time_zone($new_tz);

print "Original date: $date\n";
print "Converted date: $new_date\n";