use Date::Calc ();
sub valid_date($$$) {
   my ($day, $month, $year) = @_;
   return Date::Calc::check_date($year, $month, $day);
}