schau dir mal das widget beispiel an, dass bei tk mitkommt perl/bin/widget
dort findest du dieses beispiel (ausführbar)