my $mw12= $mw->configure(-menu=> my $menubar = $mw->Menu);
my $file = $menubar->cascade(-label =>'~File');
my $help = $menubar->cascade(-label =>'~Help');
my $new = $file ->command(-label=>'New', -underline=>0);
my $open = $file ->command(-label=>'Open', -underline=>0);
my $save = $file ->command(-label=>'Save', -underline=>0);
my $saveas = $file ->command(-label=>'Save As..', -<br>underline=>1);
my $exit = $file ->command(-label=>'Exit', -underline=>0, -command =>\&exit);