my @files = readdir (CURRENT);
closedir CURRENT;
foreach (@files) {
    return 1 if (!/^\.\.?$/ and -d);
}
return 0;