You should keep in mind that once you draw all widgets on the screen, you have to assign actions to buttons and bind the output to other widgets. If you define a button which should take an action, you should return the result in (for example) a labelwidget, like: (note: I can't test where I am now, so this code is not tested!)

#!/usr/bin/perl -w
use strict;
use Tk;
my $mainwindow = MainWindow->new();
my $label = $mainwindow->Label(-text => "This is before you press the 
+button") ->pack();
my $button = $mainwindow->Button(    -text => "press to change the lab
+el", 
                    -command => sub {
                            $label->configure(-text => "This changed t
+he label")
                            }
                )->pack();
MainLoop();
[download]

I hope this clarifies it...

Jouke Visser, Perl 'Adept'
Using Perl to help the disabled: pVoice and pStory

Comment on Re: Perl/TK Database Download Code