Simplifies drawing with a mouse in a perl/Tk Canvas jcnorton (jchnorton@verizon.net)