pppaulll,

It sounds like you might be rolling your own date routines to create simple strings for use as filenames, log entries, etc. After having done that for years, I finally dropped it for Date::Manip. This is just one nice module - need a date string for today:

#!/usr/bin/perl
use Date::Manip;
print UnixDate( ParseDate( "today" ), "%Y %m %d" ), "\n";
[download]

no need to remember to add 100 or 1.
correction: no need to remember to add 1900 or 1 (guess I've gotten use to Date::Manip all ready)

-derby