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