Calculating Midnight in Unix

    use Time::Local;
    my @lt = localtime();
    my $midnight = timelocal(0, 0, 0, $lt[3], $lt[4], $lt[5]);