use strict;
use warnings;

use Tk;
my ($mw);#,$menubar,$file,@lables, @label_texts);
$mw=MainWindow->new;

my $menub=$mw->Menubutton(-text => "File",
    -menuitems => [
        [ 'command' => "New", "-command" => \&newfile, "-underline" => 0 ],
        [ 'command' => "Open", "-command" => \&openfile, "-underline" => 0 ],
        [ 'command' => "Save", "-command" => \&savefile, "-underline" => 0 ],
        [ 'command' => "SaveAs", "-command" => \&saveasfile, "-underline" => 4 ] ] )->pack

$mw->Button(-text=>'test', -command=>\&test)->pack;

MainLoop;

sub test{
    print "in test\n";
    foreach my $i (1 .. 4){
        $menub->entryconfigure($i,-label=>'8 million ways to die (1986)[HD].TAG' );
    }
}