#!/usr/bin/perl --
use strict;
use warnings;
use Time::Piece;

my $t = gmtime;
print $t->ymd . "\n";
$t += ONE_DAY;
print $t->ymd . "\n";
my $t2 = $t + ONE_DAY;
print $t2->ymd . "\n";
__END__
Bareword "ONE_DAY" not allowed while "strict subs" in use at - line 8.
Bareword "ONE_DAY" not allowed while "strict subs" in use at - line 10.
Execution of - aborted due to compilation errors.