sub test {
  my ($date) = @_;
  print $date,"\n";
  my ($year, $month, $day) = $date =~ m/(\d+)-(\d+)-(\d+)/;
  print "$year-$month-$day\n";
}