or download this
$ perl -e 'printf "File test: file %d f_link %d dir %d d_link %d\n" ,
+-f "file" , -f "f_link", -f "dir", -f "d_link"; '
File test: file 1 f_link 1 dir 0 d_link 0
$ perl -e 'printf "Dir test: file %d f_link %d dir %d d_link %d\n" ,-
+d "file" , -d "f_link", -d "dir", -d "d_link"; '
Dir test: file 0 f_link 0 dir 1 d_link 1