Help for this page

Select Code to Download

Select or download this

use Date::Calc qw( check_date );

while ( <DATA> )
...
6/4/1989
2-29-2000
2/29/2001