Use -d ... like :

# get $filename
if (-d $filename) {
    # a dir
} elsif (-f $filename) {
    # a normal file
} else {
    # something else
}
[download]

---

from the frivolous to the serious