in reply to How to determine whether a dir entry is a directory?

Fcntl has defines some symbols which can help here: 
use Fcntl ':mode';
$mode & S_IFDIR;
S_ISDIR($mode);

[download]

In Section Seekers of Perl Wisdom