use warnings;
use strict;
use Tk;
my $t=tkinit->Text(-state => 'disabled',
                   -takefocus =>1, # tab-key moves focus
               )->pack;
$t->bind('<Any-Key>'=>sub {
        print "received Key\n";
    });
$t->focus; #init focus
MainLoop;