#my $log_fh = *LOG_FH;
my $log_fh = \*LOG_FH;