use Tk;
my $mw = tkinit;

$mw->Entry()->pack->bind('<Enter>',sub{print"entered\n"}) for (0..5);

MainLoop;