my $date = sprintf("%02d%02d", (localtime)[4] + 1, (localtime)[3]);
print $date, "\n";