use Time::Local;
$TIME = timelocal($sec, $min, $hours, $mday, $mon, $year);