#!/usr/local/bin/perl

use Tk;

my $main = new MainWindow;

$help_mb = $main->Menubutton(-text => "Help",
                                  -bg => '#bdc4c2',
                                  -tearoff => '0',
                                  -activebackground => '#bdc4c2',
                                  -relief => 'raised',
                                  -menuitems => [ [ 'command' => "quit",
                                                   "-command" => \&my_quit,
                                                   "-underline" => 0 ]
                                                ],
                                  )->pack(-side => 'right');

MainLoop;

sub my_quit {
   exit;
}