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