use Time::Local; my $time = timelocal(0, 0, 12, (localtime)[3, 4, 5]);