in reply to Problems with -filetest on readdir results

This is a great opportunity to use map especially if you are going to need the path again later in your script. From your code Untested:
#!/usr/bin/perl $path="."; opendir (DIR, $path) or die "could not open directory"; @files = map {"$path/$_"}, readdir(DIR); #maps the path into your arra +y foreach (@files) { print "$_ \n" if (-d $_) ; }
Update: Thanks merlyn