use threads;
use Win32::OLE::Const;

my $h = Win32::OLE::Const->Load('Microsoft Excel');
use Data::Dumper qw(Dumper);
print Dumper $h;