#!/usr/bin/env perl use strict; use warnings; use Tk; my $mw = MainWindow::->new(); ... MainLoop; #### $applemenu->command(-label => 'Hello', -command => sub { print "Hello\n" }); #### my $menubar = $mw->Menu(-type => 'menubar'); ... $mw->configure(-menu => $menubar); #### # Converted from menu.tcl -- #### $mw->Button(...)->pack; # Tk $mw->new_button(...)->g_pack; # Tkx