use Time::Piece;
  my $time = Time::Piece->strptime("20050622", "%Y%m%d");
  my ($tyear, $tmon, $tday) = ($time->year, $time->mon, $time->mday)