如何使用perl获取去年日期和当前日期？

我想使用perl以140220和130220的格式获取当前日期和去年的确切日期。

以下内容可能会有所帮助：

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

my $time     = Time::Piece->new;
my $currDate = $time->strftime('%y%m%d');
print $currDate, "\n";

my $lastYear = $time->add_years(-1)->strftime('%y%m%d');
print $lastYear;

输出：

140219
130219

下面是一个使用的示例

---

但它给出的是昨天的日期而不是当前日期？@user3282663-它是在我的时区执行的。

#!/usr/bin/env perl

use strict;
use warnings;
use feature qw/say/;
use DateTime;

my $dt = DateTime->now();
my $year_ago = DateTime->now()->subtract(years => 1);

say $dt->strftime("%y%m%d");
say $year_ago->strftime("%y%m%d");