opendir(DIR,".");
@files = sort grep(!/^\./, readdir(DIR));
closedir(DIR);