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