Select Code to Download

use strict;
use warnings;
...
03/02/1999,03/02/2000,later
03/02/1999,03/02/1999,equal
03/02/1999,03/02/199 ,invalid

$ perl dt.pl
ok 1 - compared to 03/02/1999, 03/01/1999 is earlier
...
ok 5 - compared to 03/02/1999, 03/02/1999 is equal
ok 6 - compared to 03/02/1999, 03/02/199  is invalid
1..6