use strict;
    use warnings;
	
	my $logfile = "test.log";
	my $log_fh = *LOG_FH;
	LOG_MSG_OPEN($log_fh,$logfile);
	
	...
sub LOG_MSG_OPEN
{
	my $par_fh = $_[0];


	open($par_fh,"> $par_filepath") or die ("Can't open $par_filepath: $!\n");
	$par_fh->autoflush(1);
}
	

##</code><code>##

#no warnings 'once';


##</code><code>##

my $logfile = "test.log";
my $log_fh = "LOG_FH";
LOG_MSG_OPEN($log_fh,$logfile);
...
sub LOG_MSG_OPEN
{
	my $par_fh = $_[0];
	my $par_filepath = $_[1];
	
	my $par_fh_2 = *${par_fh};
	
	open($par_fh_2,"> $par_filepath") or die ("Can't open $par_filepath: $!\n");
	$par_fh_2->autoflush(1);
}