use Time::Local;

$time = timelocal($sec, $min, $hour, $day, $month - 1, $year - 1900);