opendir (DIR,dirname);
@dir = grep{!/^\.+/} readdir(DIR);
closedir(DIR);
print join("\n",@dir);