use Time::Local;
$today = timelocal(localtime);