#!/usr/bin/perl

# http://perlmonks.org/?node_id=1173709

use strict;
use warnings;

use Tk;

# use Tk::WidgetDump;
# use Tk::ObjScanner;

my $mw = MainWindow->new();
   $mw->geometry("100x100+799+336");

$mw->bind('<KeyRelease-question>' => sub{print "A question mark was pressed!!\n"} );

my $entry = $mw->Entry( -text => '',-width => 20)->pack();
$entry->bind('<Enter>' => sub { $mw->bind('<KeyRelease-question>' => sub {})});
$entry->bind('<Leave>' => sub { $mw->bind('<KeyRelease-question>' =>
  sub{print "A question mark was pressed!!\n"})});

# $mw->WidgetDump();

MainLoop;