my $log_fh = \*LOG_FH;