## This in a package else where
## 'inside-out obj'
sub assign_log_handle {
   my $self = shift;
   $log_handle->{$self} = shift;
   return;
}

## From main code
Your::Package->assign_log_handle( *STDERR );