You should use the lstat builtin if you don't want to resolve soft links.

If you use Fcntl qw(:mode); you can get the constants by name. That will be easier to read and remember.

++Helter for the other answers.

After Compline,
Zaxo