#!c:\Perl\bin\perl
use warnings;
use strict;
package CONSTANTS;

use constant {
	TOP_MENU1_	=> 'TopMenu1',
	TOP_MENU2_	=> 'TopMenu2',
	TOP_MENU3_	=> 'TopMenu3',
	TOP_MENU4_	=> 'TopMenu4',
	TOP_MENU5_	=> 'TopMenu5',
	TM1_SUB1_	=> 'SubMenu11',
	TM1_SUB2_	=> 'SubMenu12',
	TM1_SUB3_	=> 'SubMenu13',
	TM1_SUB4_	=> 'SubMenu14',
	TM2_SUB1_	=> 'SubMenu21',
	TM3_SUB1_	=> 'SubMenu31',
	TM4_SUB1_	=> 'SubMenu41',
	TM4_SUB2_	=> 'SubMenu42',
	TM4_SUB3_	=> 'SubMenu43',
	TM4_SUB4_	=> 'SubMenu44',
	TM4_SUB5_	=> 'SubMenu45',
	TM5_SUB1_	=> 'SubMenu51',
};