Have you looked at the script called "widget" that comes with Perl/Tk? When you run it, it puts up a very nice gui that demonstrates a lot of widgets and techniques using Tk. You can play with what the demos do and see the source code that runs them. If you have a clear idea of what you want, just draw relevant snippets out of that demo. (That, plus reading the various perldoc Tk man pages, was how I got started using Tk, long before buying the Perl Tk book. Worked for me.)

Try some things out, and if you hit something you can't figure out, post the code that you tried. Then we'll be able to help more.