Select Code to Download

sub perlish {
    chomp;
...

%processed = ( getcwd() => 1 );
print join "\n", (map &perlish, `ls`),"\n";

sub perlish {
    chomp;
    ( -d ) ? map &perlish, `find $_/* -maxdepth 0` : $_;
}
my @files = map &perlish, `find . -maxdepth 0`;