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