/PerlTQt/examples/drawlines/