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