perldoc Time::Local; $time = timelocal($sec,$min,$hours,$mday,$mon,$year); С помощью Time::Local можно посчитать число секунд, дней, месяцев и т.д. относительно какой-либо даты.
$ date --date "2007-12-08 23:16:44" +%s 1197148604
$ date --date="1970-01-01 1197159404 seconds" +"%Y-%m-%d %T" 2007-12-08 23:16:44
info date для подробных примеров
