my $menubar = $mw->Menu(-type => 'menubar');
...
$mw->configure(-menu => $menubar);