A series of Perl programs to generate G code for the ShapeOko CNC mill