in reply to Listing directory contents not working (SUSE Linux issue?)...
use File::Find::Rule; my @dirs = find( directory => maxdepth => 1, in => $dir );