If you want to have a look at the code, check out the perl-date-time project on SourceForge. There is code in the CVS.