YmdHMsからepochを求める (module)Time-Local

Time::Local モジュールを使用する。(標準モジュール)

use Time::Local;

$year=2001;
$mon =10;
$mday=24;
$hours = 0;
$min   = 0;
$sec   = 0;
$time = timelocal($sec, $min, $hours, $mday, $mon - 1, $year);

月の値は0が基点
年は、1900を引いても引かなくても動く