use Tk;

my $main = MainWindow->new;
$main->Button(-text => 'Redo', -command => sub{$main->title('Moo');})->pack;
MainLoop;