my ($day, $month, $year) = (localtime)[3..5];
# $date is YYMMDD format - you may want $day - 1?
my $date = sprintf "%02d%02d%02d", $year % 100, $month + 1, $day;

my $log_file_path = '/dt00mx84/LogArchive/www.ksdot.org/dt00mh77/';
my $log_file = $log_file_path . 'ex' . $date. '.log';
my $out_file = $log_file_path . $date. '.log';