#!/usr/bin/perl -w

use strict;
use Tk;

my $mw = 'MainWindow'->new();

my $cv = $mw->Canvas()->pack();

$mw->bind('<Any-Enter>' => sub { $cv->Tk::focus });
#$cv->Tk::focus;

$cv->Tk::bind( '<KeyPress-a>', sub { print "Ounch!\n" } ); 

#$mw->bind( '<KeyPress-a>', sub { print "Ounch!\n" } ); 

MainLoop();