If you need to do with dates some operations, try to look at The Perl DateTime Project, which produces a suite of inter-operable modules for dealing with dates and times.

Also you can use my module Date. Maybe it will be useful for you.

      
--------------------------------
SV* sv_bless(SV* sv, HV* stash);