use Tk;
use strict;

my $entry_val = "initial value";
my $mw = new MainWindow(title => "demo");
$mw->Entry(width => 20, textvariable => \$entry_val)->pack;
$mw->Button(text => "click", command => sub {print $entry_val, "\n";})->pack;
MainLoop;