coax@ae:~$ mkdir directory
coax@ae:~$ ln -s directory sym_directory
coax@ae:~$ perl -le 'for(qw/directory sym_directory/) {
-d && print "$_ ist Verzeichnis";
-l && print "$_ ist symbl. Link"; }'
directory ist Verzeichnis
sym_directory ist Verzeichnis
sym_directory ist symbl. Link