Wie feststellen, ob $file ein Verzeichnis ist?

[diab]

Hallo,
ich gehe mit einer foreach-Schleife in @files(=readdir(DIR); durch.
(foreach $file (@files) {...})

Wie kann ich für die Variable $file herausfinden, ob es sich um

• einen Symlink
• ein Verzeichnis
• eine reguläre Datei

handelt?

(Zielplattform ist *NIX)

Vielen Dank

m.