use Class::Date qw/ date localdate now /; my $cmpday = date( date( '2001-11-9' ) + '1M' + '20D' ); # add 1 month, 20 days my $today = date( localdate( now ))->truncate; # truncate makes time midnight. if ( $cmpday == $today ){ print "Today is $cmpday.\n"; } else { print +( Class::Date->new( $today ) - $cmpday )->day, " days away.\n"; }