#!/usr/bin/perl
$topdir="/etc/menu-methods";
$dirname="$topdir/multi";
$langname="$topdir/lang.h";
@langs;
opendir DIR,$dirname;
while (defined($filename= readdir(DIR))){
if (!(($filename eq ".")||($filename eq ".."))){
open MENU, "$dirname/$filename" or die "cannot open file $filename";
$top=