#!/usr/bin/perl
use warnings;
use strict;

use Tk;

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

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

$mw->Entry( -text => '',-width => 20)->pack();

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

# $mw->WidgetDump();

MainLoop;