If you really just want a snippet of code, rather than something complex from CPAN, you could take a look here: http://www.lightandmatter.com/when/when.html . See package When;, and sub delta_days(). But in general you're probably better off just grabbing Date::Calc off of CPAN.