#!/usr/bin/env perl

use strict;
use warnings;

use Tk;

my $mw = MainWindow::->new();

...

MainLoop;

##</code><code>##

$applemenu->command(-label => 'Hello', -command => sub { print "Hello\n" });

##</code><code>##

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

##</code><code>##

# Converted from menu.tcl --

##</code><code>##

$mw->Button(...)->pack;       # Tk
$mw->new_button(...)->g_pack; # Tkx