perl -e 'use Time::Local qw(timelocal); print "".localtime(timelocal(0,0,12,23,1,2006)+86400*124)."\n"'
# prints Tue Jun 27 13:00:00 2006