Select Code to Download

#!/usr/bin/env perl

...
   say "-y1=$-{y}[1]";
   say "-x2=$-{x}[2]";
   say "-y2=$-{y}[2]";

prBoundaryString='( (0.01 0.02) (0.0 1328.23) (0.03 0.04) )

...
-y1=
-x2=
-y2=