use strict; use warnings; use feature qw( say ); use DateTime qw( ); # Or using your favourite DateTime::Format parser. my $date1 = DateTime->new( year => 1981, month => 2, day => 1 ); my $date2 = DateTime->new( year => 1982, month => 2, day => 5 );