如何在Perl中解析JSON日期格式？

cpan install JSON
cpan install DateTime

use strict;
use warnings;
use JSON;
use DateTime;

my $json_string = '{"date": "2022-01-01T00:00:00"}';
my $json = JSON->new->decode($json_string);

my $date_string = $json->{date};
my $dt = DateTime->from_epoch( epoch => time );

$dt = DateTime::Format::ISO8601->parse_datetime($date_string);

print "Parsed date: " . $dt->ymd . "\n";