my $menu=$mw->Menubutton (
        -text=>'Information',
        -background=>'lightblue',
        -foreground=>'blue',
        -activebackground=>'cyan',
        -activeforeground=>'blue',
        -menuitems=>[ [ 'command' => "About this program",
                        "-command" => \&about,
                        "-underline" => 0],
                        [ 'command' => "User Guide",
                        "-command" => \&help,
                        "-underline" => 0 ] ])->pack(-anchor => 'ne');