sub now_date {
	my @now = localtime ; 
	my $now_day = $now[3] ;
	my $now_year = $now[5] + 1900 ;
	my $now_month = $now[4] + 1 ;
	$now_scal = sprintf "%04d-%02d-%2d", $now_year , $now_month ,$now_day ;
	return $now_scal
}