perl -MFile::Find -e 'find(sub {my $f = $File::Find::name; print $f, "\n" if -w $f && !-l $f}, "/")'