#!perl

use strict;
use warnings;
use Tk;

my $mw = Tk::MainWindow->new();
my $entry = $mw->Entry()->pack();
my $var = '123';

$entry->bind('<KeyPress>', sub{
	print "$var\n";
});

$mw->MainLoop();