my($sec,$min,$hour,$day,$month,$year) = map {sprintf("%02d",$_)} (localtime)[0..5];
$month++;
$year += 1900;