opendir(DIR,"$dir");
@array = readdir(DIR);