sci perl Math-Bezier