use strict;
use warnings;

use Win32::OLE ();

my $ex = Win32::OLE->new('Excel.Application')
or die("Unable to open Excel object\n");

foreach my $key (keys(%$ex)) {
   print($key, "\n");

   # Application
   # Creator
   # Parent
   # ActiveCell
   # ActiveChart
   # ActivePrinter
   # ...
}