my($year, $month, $day) = (localtime)[5 ,4 ,3];
$year1 = $year+1900;
$month1 = $month+1;