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

my $mw = MainWindow->new();
my $frame = $mw->Frame->pack();
populate();

$frame->Button(-command=>\&recompose,
                -text=>'do_it')->pack();

MainLoop;

sub recompose
{       
        $mw->withdraw;
	$frame->destroy();
	$frame = $mw->Frame->pack();
	populate();

        $mw->packPropagate;
        $frame->update;
        $mw->update;
        $mw->deiconify;

}

sub populate
{
	for (1..10)
	{
		$frame->Label(-text=>$_)->pack();
	}
}