Select Code to Download

#! C:/Perl/bin/perl -w
 
...
 my $wkbk = $Excel->{'Workbooks'}->Open($file_full_name);
   }
}

$Book->SolverOk(
  {
...
  }
        );
$Book->SolverSolve();

Sub Macro1()
    SolverOk SetCell:="$B$4", MaxMinVal:=2, ValueOf:="0", ByChange:="$
+B$3"
    SolverSolve
End Sub