open(my $log_file, "<", $log_name); my $file_name; while (){