if (-d $dir && !-l _) {

    ...

};