opendir(DIR, ".");
my @dir = readdir(DIR);
closedir(DIR);