my $int = $mw->interp;
		my $menuPATH = $int->widget($menubar);#getting Tk name
		$int->Eval("
			$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"}
		");