or download this
# file `perl -MFile::Find -e'$File::Find::dont_use_nlink = 1; find(sub
+ { lstat _ or print "$File::Find::name\n"; -l "" }, "/tmp")'`
/tmp/opt: directory
...
/tmp/gpg-I5lCsj: directory
/tmp/.X11-unix: sticky directory
/tmp/orbit-root: directory