Select Code to Download

use Win32::OLE;
use Win32::OLE qw(in with);
use Win32::OLE::Variant;
use Win32::OLE::Const 'Microsoft Excel';

use strict;
use Win32::OLE;
...
foreach my $Key (sort keys %$xl) {
    print "$Key = $xl->{$Key}\n";
}

Enum(‘XLFileFormat');