use DateTime::Event::SolarTerm qw(WINTER_SOLSTICE);
  my $dt0  = DateTime->new(...);
  my $winter_solstice = DateTime::Event::SolarTerm->next_term_at(
    datetime  => $dt0,
    longitude => WINTER_SOLSTICE
  );