#!/usr/bin/perl
use warnings;
use strict;
#use lib '.'; 
#BEGIN { unshift(@INC,'.')}  
use Tk;
use Tk::Text;

my $top = MainWindow->new();
my $text = $top->Text->pack;

$text->bind('<Control-g>',
  sub {$text->insert('end',"<-How do I supress this?\n")
     });

MainLoop;

##</code><code>##

sub bindRdOnly{
$mw->bind($class,'<Control-KeyPress>','NoOp');
....
.....
}

##</code><code>##

package Tk::MyText;
require Tk::Text;
use base qw/Tk::Text/;
Construct Tk::Widget 'MyText';

sub InsertKeypress {
  my($w, $char) = @_;
   if (ord($char) < 27) {
     print chr(ord($char) | 0x40), "\n";
 # only Control-G/J/L/M/Q/R/S/U/W/Y/Z are making it to here 
   } else {
  $w->SUPER::InsertKeypress($char);
  }
}