my ((undef) x 5, $year, $wday, $yday, $isdst) = localtime(time);
my $zeroed_ts = timelocal((0) x 5, $year, $wday, $yday, $isdst);