use Tk;
my $app = new MainWindow;
my $entry1  = $app->Entry()->pack();
my $entry2  = $app->Entry()->pack();

$entry1->bind('all', '<<customEvent>>' => sub{ print "entry 1" });
$entry2->bind('all', '<<customEvent>>' => sub{ print "entry 2" });

$app->Button(-text => 'gen event',
             -command => sub{ $app->eventGenerate('<<customEvent>>')} )->pack();

MainLoop;