opendir (DIR, ".") or die "$!";
@dir = grep !/^\.\.?$/, readdir DIR; closedir DIR;