use strict;
use warnings;
use Win32::OLE;
use Data::Dumper;

my $xl = Win32::OLE->new('Excel.Application');
$xl->{Visible} = 1;
#my $wb = $xl->Workbooks->Add;
print Dumper $xl->{Calculation};
$xl->{Calculation}=-4135;
print Dumper $xl->{Calculation};


##</code><code>##

X:\Data\Perl>1145425.pl
$VAR1 = bless( do{\(my $o = 40621128)}, 'Win32::OLE::Variant' );
$VAR1 = bless( do{\(my $o = 40621128)}, 'Win32::OLE::Variant' );


##</code><code>##

X:\Data\Perl>1145425.pl
$VAR1 = -4105;
$VAR1 = -4135;