>>594
ソース付きで商用UNIXを買いましょう

>>601
use Time::Local;
$time = timelocal($sec, $min, $hours, $mday, $mon - 1, $year);