use strict;
use warnings;
use utf8;
use Tk;

my $mw = tkinit();
my $name = 'bound to entry';
my $label = $mw->Label(
	-text => 'Enter:',
)->grid(
	-row => 0,
	-column => 0,
);
my $entry = $mw->Entry(
	-textvariable => \$name
)->grid(
	-row => 0,
	-column => 1,
);
my $button = $mw->Button(
	-text => 'Clear',
	-command => sub{
		$name = '';
	},
)->grid(
	-row => 2,
	-column => 0,
	-columnspan => 2,
);
$mw->MainLoop();