use Time::Local;

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

my $day .= localtime($time);

print $day, "\n";