[davidrw@host ~]$ perl -MDate::Calc=Decode_Date_EU -le 'print join ":", Decode_Date_EU("31-02-2006")'

[davidrw@host ~]$ perl -MDate::Calc=Decode_Date_EU -le 'print join ":", Decode_Date_EU("28-02-2006")'
2006:2:28