my $obj = Win32::OLE->new('STATANPKG.PDG3');