use Tk;

my $top = new MainWindow;
my $but = $top->Button(text=>"OK", command=>\&get_text)->pack;
my $tex = $top->Text()->pack;

MainLoop;

sub get_text {
	$text = $tex->get(0.1,'end');
	print $text;
}