Select Code to Download

sub SetLog {
  my $glob = shift;
  *LogFile = *$glob;
}

package test_a;
my $LOGFH;
...
package main;
...
test_a::SetLog(\*LOGF);