use strict;
use warnings;
use Tk;
our $name;
my $mw = MainWindow->new();
my $entry = $mw->Entry(
	-textvariable => \$name
	)->pack();

$mw-> bind('<F1>', sub{entervalue()});
$mw->MainLoop();
exit(0);

sub entervalue{
	$name = "xxx";
}