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