#!/usr/bin/perl

use strict;
use Tk;

my $MW = MainWindow->new;
my $menu = $MW -> Menu(-type=>'menubar',-tearoff=>0);
$MW -> configure(-menu=>$menu);
$MW -> bind("<Key-F1>"=>[\&printentry]);

my $MM = $menu -> cascade(-label=>'menu',-underline=>0,-tearoff=>0);
my $one = $MM -> command(-label=>'one',-command=>sub{});
my $two = $MM -> command(-label=>'two',-command=>sub{});
my $three = $MM -> command(-label=>'three',-command=>sub{});

MainLoop;

sub printentry {
        my $whM = $menu->entrycget('active','-label');
        print "active:$whM\t";
}