Select Code to Download

use constant {
    ...
    ONE_DAY => 86_400,
    ...
};

...
my $one_day = 24 * 60 * 60;
...
$t = $t - $one_day;
...

...
$t = $t - 24 * 60 * 60;
...