($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);  
$year += 1900;
$mon += 1;
print join '_', ($year,$mon,$mday,$hour,$min,$sec);  # YYYY_MM_DD_HH_MM_SS