#!/usr/bin/perl
use warnings;
use strict; 

use Tk;

my $mw = tkinit; 
my $t = $mw->Text->pack; 
my $b = $mw->Button( 
-text => 'Press Me', 
-command => \&foo,  
)->pack;                                                              
+                                            

$mw->bind('<Control-a>', [$b => 'invoke']); 
MainLoop; 
 
sub foo {  
    $t->insert('end', "Thank you\n");  
    $t->see('end');   
}
[download]

The issue is whether or not your GUI application can even get the CTL-N to begin with! This will not happen unless your app window "has mouse focus". When you are testing this, click on the "title bar" of the Tk app before you test entering CTL-N. Also, for debugging, put something like -command => sub{"print ctl-n received\n";}. If you can get this working with mouse focus on your window and want this to work without mouse focus, then a "higher level" of keyboard mapping needs to occur and that is possible, but happens at the overall window manager level rather than at the object level.

Thanks All. I used something like this $mw->bind($mw, "<Control-n>" => \&createNew); where 'mw' is my main window and createNew is my callback. And it worked fine for me. Thanks Again.