Select Code to Download

use Ensure;
use strict;
...
};

print "Finally stopped at $x.\n";

while ($x < $limit) {
  print "Enter P,Q,R: ";
...
  last if $x >= $limit;
  $x /= $r;
}

ensure { ... } using($x,$y,$z), looping { ... };

ensure { ... } using($x,\@y), looping { ... };

ensure { ... } using($x,\%y,\@z), looping { ... };

package Ensure;

...


1;