in reply to Getting Day Of Month

use Time::Local;
$day = unpack"a3",localtime timelocal 0,0,12,25,5-1,2002-1900;

[download]

In Section Seekers of Perl Wisdom