use warnings;
use strict;
use Tk 800.000;
my $mw = MainWindow->new;
my $menu = $mw->Menu();
my $file_menu = $menu->cascade(-label => 'File', -tearoff => 'false');
my $edit_menu = $menu->cascade(-label => 'Edit', -tearoff => 'false');
my $help_menu = $menu->cascade(-label => 'Help', -tearoff => 'false');
$mw->configure(-menu => $menu);
my $spacer = $mw->Frame(-width => 200)->pack;
# resize handle obscures Help menu
$mw->resizable(0,0);
MainLoop;