my $textEntry = $mainWindow -> Entry(-state => 'normal') -> pack( -side => 'bottom', -expand => 'BOOLEAN');
$textEntry -> bind('<Return>' => &get);
sub get {
	my $text = $textEntry -> get();
	print "$text\n";
}