use strict;
use warnings;
use Tk;

my $mw = MainWindow->new();

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

populate();

$frame->Button(-command=>\&recompose)->pack();

MainLoop;

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

}

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