my $app = Win32::OLE->new('{12345678-9ABC-DEF0-1234-56789ABCDEF0}'); # substitute the real CLSID or ProgID