$widgetname->configure(-this => 'that');
$someotherwidget->configure(-this => 'that');
$mw->configure(-this => 'that');

##</code><code>##

#!/usr/bin/perl
use strict;
use Tk;

my $mw = MainWindow->new;
for(0..4){
$mw->Button(-text => "Hello World$_",
                     -command=>[\&change])->pack;
}
MainLoop;

sub change {
print "sub-input->@_\n";
my $caller = $Tk::widget;
print "$caller   ";
print $caller->{'_TkValue_'},'     ';
my $text = $caller->cget('-text');
print "$text\n";
$caller->configure(-text=>"Hello Stranger");
}
__END__

##</code><code>##

#!/usr/bin/perl
use strict;
use Tk;

my $mw = MainWindow->new;
my $b = $mw->Button(-text => "Hello World",
                 -command=>[\&change])->pack();

my $l = $mw->Label(-text => 'hi')->pack();

MainLoop;


sub change {
$b->configure(-text=>"Hello Stranger");
$l->configure(-text=>'bye');
}