If you have dates before and after time 1000000000 (Sept 2001), you need to use <=> instead of cmp (assuming traditional Unix epoch).

Being able to do a numeric comparison on two substrings is one of those things that makes Perl Perl.