use strict;
my ($key);
print "\nD Version test - Perl version is <$]>\n";
print "\n\nusing Win32::OLE::Const\n\n";
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";
}