Perl/Tk saves your favourite tools

(source) These last four slides show the text of a script which implements a basic graphical program.

Pushing the right mouse button (button 3) over the arrow item will have it removed. The left mouse button will make any of the objects to be moved.