One way:

use Time;
$time = timelocal($sec,$min,$hours,$mday,$mon,$year);
$time += (1*60 + 23)*60;
(...)=localtime($time);
[download]