http://www.perlmonks.org?node_id=123349


⭐ in reply to How do I validate a date?

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

[download]

In Section Seekers of Perl Wisdom