$year +=1900;
my $datestr = join "-", ++$month, $day, $year;