my ($sec,$min,$hour,$day,$mon,$year,@rest) =   localtime(time);

++$mon;
$year += 1900;
printf "%02d%02d%04d\n", $mon, $day, $year;