use OLE;
use Win32::OLE::Const "Microsoft Excel";
use strict "vars";
use Win32::OLE 'in';
my $excel = Win32::OLE->CreateObject('Excel.Application');
for my $wb (in($excel->{Workbooks})) {
    print "in loop\n";
    print $wb->{Filename},"\n";
}