in reply to Finding all files that are writeable by the current user

perl -MFile::Finder -e 'File::Finder->type("f")->perm("-200")->ls->in(
+@ARGV)' .

[download]

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

In Section Cool Uses for Perl