use strict;
use Win32::OLE qw(HRESULT);
use constant CO_E_NOTINITIALIZED => 0x800401F0;

my $result = -2147221008;

if (HRESULT(CO_E_NOTINITIALIZED) == $result) {
	print "Eureka! The problem is CO_E_NOTINITIALIZED\n";
}