如何比较Perl中的日期？

use strict;
use warnings;
use Time::Piece;
use Time::Seconds;

my $date1 = '2022-01-01';
my $date2 = '2022-01-15';

my $t1 = Time::Piece->strptime($date1, '%Y-%m-%d');
my $t2 = Time::Piece->strptime($date2, '%Y-%m-%d');

if ($t1 < $t2) {
    print "日期 $date1 早于 $date2\n";
} elsif ($t1 > $t2) {
    print "日期 $date1 晚于 $date2\n";
} else {
    print "日期 $date1 等于 $date2\n";
}