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