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);
}