Select Code to Download

$ perl -Mstrict -Mwarnings -e '
print `find . -type f \\( -perm -0020 -o -perm -0004 -o -perm -0002 -o
+ -perm -0001 -o -perm -1000 \\) -ls`;'
... ls listing here ...