#!/usr/bin/perl 

use strict;
use warnings;
use Tk;

sub one;

my $main = MainWindow->new;

my $label1 = $main->Text
(
	'-width'=>'50'
)->pack;

my $button = $main->Button
(
	-text=>'next',
	-command=>sub{one}
)->pack;

MainLoop;

sub one
{
	my $talk2="number1";
	my $talk="this text will be changing after every click of the button.";
	$label1 -> insert('1.0',"$talk");
	my $button = $main->Button(-text=>'next',-command=>sub{two})->pack;
}

sub two
{
# change the text box again
}