use Win32::OLE;
use Win32::OLE::Const;
my $Excel = Win32::OLE->new('Excel.Application', 'Quit');
my $xlcon = Win32::OLE::Const->Load($Excel);
foreach $key (sort {$a cmp $b} keys %$xlcon) {
	print "$key value $xlcon->{$key}\n";
}