or download this
my ($day, $month, $year) = (localtime)[3..5];
# $date is YYMMDD format - you may want $day - 1?
...
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';