sub MakeDate {
	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
	$year = ($year + 1900) ; $mon++ ;
	my $date = sprintf("%04D%02d%02d", $year, $mon, $mday);
	return $date;
}