use Date::Calc qw /check_date/;

##</code><code>##

Date::Calc::check_date (2000, 5, 30);