sub get_file_from_log(){ my $log_name=shift; open(my $log_file, "<", $log_name);