use Tk;

my $mw      = MainWindow->new;
my $menubar = $mw->Menu();
$mw->configure( -menu => $menubar );
my $file = $menubar->cascade( -label => '~File' );

$file->command(
    -label       => '~Quit',
    -command     => sub { exit },
    -accelerator => 'Ctrl-Q'
);

$mw->bind( '<Control-q>', sub { exit } );

$mw->MainLoop();

exit;