#!/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;