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

my $mw = MainWindow->new();
my $Text = $mw->Text()->pack;
my $TextMenu = $Text->menu();

$TextMenu->bind("<Enter>",sub {print "1\n" });
$TextMenu->bind("<Leave>",sub {print "0\n" });
MainLoop;