# From memory, as I don't have Excel at hand currently
use Win32::OLE 'in';
my $excel = Win32::OLE->CreateObject('Excel.Application');

for my $wb (in($excel->{Workbooks})) {
    print $wb->{Filename},"\n";
};