#!/usr/bin/perl
use Tk;

my $main = new MainWindow;
my $f = $main->Frame(-width => 100, -height => 100)->pack;

$f->bind('<Key>'   => sub {print "Key: @_\n"} );
$f->bind('<Enter>' => sub { print "enter @_\n" } );
$f->bind('<Leave>' => sub { print "leave @_\n" } );

$f->focus;
MainLoop;