Select Code to Download

[mcmahon@joe-desk ~]$ ls -R ./example/
./example/:
file  nonempty_files_only  nonempty_has_dirs
...
./example/nonempty_has_dirs/one:

./example/nonempty_has_dirs/two:

sub dive {
  my($d) = shift;
...

$d = './example';
print join ", ", dive($d),"\n";

./example/nonempty_files_only, ./example/nonempty_has_dirs/one, ./exam
+ple/nonempty_has_dirs/two