Select Code to Download

use strict;
use Win32::OLE qw(HRESULT);
...
if (HRESULT(CO_E_NOTINITIALIZED) == $result) {
    print "Eureka! The problem is CO_E_NOTINITIALIZED\n";
}

use strict;
use Data::Dumper;
...
}

print "done\n";