相关疑难解决方法(0)

在我的perl程序中,我计算保修结束日期的保修开始日期差异为3年.以下是我到目前为止编写的代码块:

use Time::ParseDate;
use DateTime;
use POSIX;
use DateTime::Duration;

my $warranty_expiration_string = "20-May-07";
my $epoch = parsedate($warranty_expiration_string);
my $warranty_expiration = strftime "%D", localtime($epoch);   # returns: 05/20/07

如何从$warranty_expiration获得$warranty_start日期中扣除3年？
我试过了,

$warranty_start->subtract(DateTime::Duration->new('years' => 3));

..但它没有用.