use Time::Local; $day = unpack"a3",localtime timelocal 0,0,12,25,5-1,2002-1900; [download]
In reply to Re: Getting Day Of Month by I0 in thread Getting Day Of Month by mt2k