use strict;
use Tk;

my $mw = MainWindow->new;

my $lbl = $mw->Label(  # File
             -text => '(start)',
#             -width => 12,
             -background => 'bisque',
#             -justify => 'left',
             -relief => 'groove',
          )->pack;

my $btn = $mw->Button(
             -text => "Go!",
             -command => \&test,
          )->pack;

MainLoop;

sub test {
   $lbl->configure(-text => 'A');
}