use Time::Local;

my @l = localtime();
$l[0] = 0;
$l[1] = 0;
$l[2] = 0;
my $localmidnighttime = timelocal(@l);