$ perl 642627.pl
Day '31' out of range 1..29 at 642627.pl line 13
This is an invalid date.