use strict;
use warnings;
use Win32::OLE;
 
my $xl = Win32::OLE->GetActiveObject('Excel.Application');
my $wb = Win32::OLE->GetObject("z:\\data\\perl\\mogul\\sillysums2.xls");
my $value = $wb->Sheets("Params")->Range("zReportTo")->{Value};
print "$value\n";


##</code><code>##

use strict;
use warnings;
use Win32::OLE;
 
my $xl = Win32::OLE->new('Excel.Application');
my $wb = $xl->Workbooks->Open("z:\\data\\perl\\mogul\\sillysums2.xls",,1);
my $value = $wb->Sheets("Params")->Range("zReportTo")->{Value};
print "$value\n";
$xl->Close;