use strict;
use warnings;
use Time::Piece;
use Time::Seconds;
my $fmt = '%Y-%m-%d';
say
"Yesterday is ", ( localtime - ONE_DAY
)->strftime($fmt);say
"Yesterday is ", ( +localtime - ONE_DAY
)->strftime($fmt);say
"Yesterday is ", ( - ONE_DAY
+ localtime )->strftime($fmt);
dXNlIHN0cmljdDsKdXNlIHdhcm5pbmdzOwp1c2UgZmVhdHVyZSBxdyhzYXkpOwoKdXNlIFRpbWU6OlBpZWNlOwp1c2UgVGltZTo6U2Vjb25kczsKCm15ICRmbXQgPSAnJVktJW0tJWQnOwoKc2F5ICJZZXN0ZXJkYXkgaXMgIiwgKCBsb2NhbHRpbWUgLSBPTkVfREFZICAgICAgICAgKS0+c3RyZnRpbWUoJGZtdCk7CnNheSAiWWVzdGVyZGF5IGlzICIsICggK2xvY2FsdGltZSAtIE9ORV9EQVkgICAgICAgICktPnN0cmZ0aW1lKCRmbXQpOwpzYXkgIlllc3RlcmRheSBpcyAiLCAoIHNjYWxhcihsb2NhbHRpbWUpIC0gT05FX0RBWSApLT5zdHJmdGltZSgkZm10KTsKc2F5ICJZZXN0ZXJkYXkgaXMgIiwgKCAtIE9ORV9EQVkgKyBsb2NhbHRpbWUgICAgICAgKS0+c3RyZnRpbWUoJGZtdCk7Cg==