I tried using File::stat (which would be another way to do this) but I couldn't grasp what it was doing..

It suggests something like:

 use File::stat;
 $st = stat($file) or die "No $file: $!";
 if ( ($st->mode & 0111) && $st->nlink > 1) ) {
     print "$file is executable with lotsa links\n";
 }
[download]

My problem was the 0111 and how I could tell if the file was writeable even if it were a readable and executable by group/user/world.. those are different numbers. I guess I would have to know and test against these numbers..

Does anyone have any insight on that? In the interim, there is this oogly thing..

my @listfiles=`ls -l ./`;
foreach(@listfiles) {
        chomp;
        $_=~s/ /\t/g;
        my @details = split(/\t/, $_);
        print "$details[-1]: $details[0]\n";
}
[download]

it works, but then, it's just a ls -l of the contents of the dir. whoo.