Delta_Days在计算no时给出错误。从现在到未来的日期在perl中

Question

我正在尝试在我的AIX服务器上使用Date::Calc和Delta_Days来查找否。从现在到未来的日期之间的天数。我的代码在一台AIX服务器上工作正常，但在具有相同规范的另一台AIX服务器上出错。这是我的代码

    use Date::Calc qw/Delta_Days/;
    my @today = (localtime)[5,4,3];
    $today[0] += 1900;
    $today[1]++;
    my @end = (2015, 11, 12);
    $expiry = Delta_Days(@today, @end);

我检查了两台服务器，它们完全相似。不知道为什么它在一个而不是另一个上工作。我在服务器上得到的错误是

Date::Calc::PP::Delta_Days(): Usage: Date::Calc::Delta_Days($year1,$month1,$day1,$year2,$month2,$day2) at future.pl line 9

有什么方法可以用错误提到的格式获取上面的代码吗？