sub LogInit{
  my $appname       = $_[0];
  my $module        = $_[1];
  my $apploglevel   = $_[2];
  $LogObj = Win32::OLE->new('LOGGERHELPER.UILogHelp');
  print "Ref is ", ref $LogObj, "\n";
  print Win32::OLE->LastError(), "\n" unless ($LogObj);
  $Log0bj->{LogLevel} = $apploglevel;
  $Log0bj->{AppName}  = $appname;
  $Log0bj->{Module}   = $module;
  Win32::MsgBox('my log is "'.$LogObj.'"');
  return $LogObj;

##</code><code>##

Ref is
Win32::OLE(0.1702) error 0x800401f3: "Invalid class string"
Can't call method "LogMessage" on unblessed reference at CLUILogger.pm line 42.