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