#! /usr/bin/perl

  use strict;
  use warnings;

  use Tk;
  use Tk::Dialog;

  my $mw = MainWindow->new();

  my @menues = (
      [ 'cascade' => 'File',
        -underline => 0,
        -menuitems => [
                  [ 'command' => 'Exit',
                    -underline => 1,
                    -command => sub { Tk::exit() } ] ],
       ],
      [ 'cascade' => 'Help',
        -underline => 0,
        -menuitems => [
                  [ 'command' => 'About',
                    -underline => 0,
                    -command => sub { $mw->Dialog(-title => 'About',
                                                  -text => 'Menubar Example',
                                                  -default_button => 'Ok',
                                                  -buttons => [ 'Ok' ])->Show();
                                    } ] ],
       ],
  );

  my $menu = $mw->Menu( -menuitems => [ @menues ] );

  $mw->configure( -menu => $menu );

  MainLoop();