in reply to Using Permissions as a Parameter

print "$file\n\n"  if (not -l $file);

Use the symbolic link test in this case.

UPDATE: Darn! Too slow on the draw! ;)

In Section Seekers of Perl Wisdom