[davidrw@host ~]$ perl -MDate::Calc=check_date -le 'print check_date(reverse split /-/, "31-02-2006" )?1:0'
0
[davidrw@host ~]$ perl -MDate::Calc=check_date -le 'print check_date(reverse split /-/, "28-02-2006" )?1:0'
1