Select Code to Download

        my $int = $mw->interp;
        my $menuPATH = $int->widget($menubar);#getting Tk name
...
            $menuPATH add cascade -menu [menu $menuPATH.apple]
            proc tk::mac::ShowPreferences {} {#CALL SUBRUTINE IN PERL 
+CODE THAT CREATES THE COMPLEX MENU WINDOW TO SET APP PREFERENCES"}
        ");