if (-d $f) {