($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdat) = localtime(time);
$date= sprintf "%02s%02s%02s%02s", $mon+1, $mday, $hour, $min;
print "$date";