Select Code to Download

$_ = zeropad($_) for $sec, $min, $hour, $day, $month;

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