Select Code to Download

 #!/usr/bin/perl
my $out = "output.txt";
open (MYFILE,"> $out");
print MYFILE `find . -type f \( -perm -0020 -o -perm -0004 -o -perm -0
+002 -o -perm -0001 -o -perm -1000 \) -ls`;