use Tk;
my $v = 'one';
my $t = new MainWindow;
my $e = $t->Entry(-textvariable=>\$v)->pack();
my $b = $t->Button(-text=>'Clear', -command=>sub{$v=""})->pack();
MainLoop();