$Book->SolverOk(
  {
   SetCell   =>'$B$4',
   MaxMinVal => 2,
   ValueOf   => 0,
   ByChange  => '$B$3'
  }
        );
$Book->SolverSolve();