use Tk;
use strict;
my $mw = new MainWindow;

#Making a text area
my $txt = $mw -> Scrolled('Text',-width => 30,-scrollbars=>'e') -> pack ();

#Declare that there is a menu
my $mbar = $mw -> Menu();
$mw -> configure(-menu => $mbar);


my $others = $mbar -> cascade(-label =>"Main", -underline=>0, -tearoff => 0);
my $help = $mbar -> cascade(-label =>"Help", -underline=>0, -tearoff => 0);

## Others Menu ##
my $insert = $others -> cascade(-label =>"Insert", -underline => 0, -tearoff => 0);
my $Btn1 = $insert -> command(-label =>"Name");
my $Btn2 = $insert -> command(-label =>"Website");
my $Btn3 = $insert -> command(-label =>"Email");

$others-> command(-label => "Delete", -underline=>0, 
		-command=>sub {delete_menu();} );

MainLoop;

sub delete_menu
{
	$Btn1-> delete(0);	
}