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