my $ymd = sprintf("%04d%02d%02d",$year+1900,$mon+1,$mday);