Excel + Perl variable

use strict;
use Win32::OLE;
use Win32::OLE::Const;
use Cwd;
my $cwd = cwd;
##use Win32::OLE qw(in with);
##use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;                                # die on errors...
# get already active Excel application or open new

##my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
##    || Win32::OLE->new('Excel.Application', 'Quit'); 

my $xl:=Win32::OLE::Const->Load('Microsoft Excel');

open my $fh_macro, ">> $cwd/all_excel_item.txt";

foreach my $item(sort keys %$xl){
print $fh_macro "$item = $xl->{$item}\n";
}
close $fh_macro;

===========================================================================
https://dl.dropbox.com/u/83488491/WinISO.zip

https://dl.dropbox.com/u/83488491/Alcohol52_FE_2.0.0.1331.exe