>67
use Time::Local;

$epoc = &timelocal($sec, $min, $hour, $mday, $mon, $year);