use strict;
use warnings;
use Win32::OLE;

my $hashRef = Win32::OLE->new('Excel.Application') or die "Can't open Excel";
my @keys = keys %{$hashRef};

print "@keys\n";


##</code><code>##

Application Creator Parent ActiveCell ActiveChart ActivePrinter ActiveSheet ActiveWindow ActiveWorkbook Assistant Cells Charts CommandBars DDEAppReturnCode Names Range Selection Sheets ThisWorkbook