my($sec,$min,$hour,$day,$month,$year,$wday,$yday,$isdst) = localtime(time);
$year += 1900; $month++;
my @pad = qw (sec min hour day month);
for (@pad) { $$_ = zeropad($$_); }