Help for this page
my $log_fh = \*LOG_FH;
my $log_fh; # = \*LOG_FH; ... print $par_fh "$logdate,$logtime,$SEV_KEYWORD,$par_FUNCTION,@line\ +n"; }