use Time::Local;

my $time = timelocal(0,0,0,1,7,2003);

my $day .= localtime($time);

print $day, "\n";

##</code><code>##

Fri Aug  1 00:00:00 2003