[cpan://Date::Manip]
[http://www.perlmonks.org/index.pl?node_id=108949&user=zengargoyle|see my scratchpad]
...your cut-n-paste needs here...