die "Invalid date format\n" unless $date =~ /\A[0-9]{6}\z/;