Select Code to Download

$ mkdir foo bar
$ touch bar/1
...
      1 ./foo/4
      1 ./foo/5
      1 ./foo/6

$ perl -wle 'use strict; use File::Find; find(sub { print if -f }, "."
+);'
651889.pl
...
6
5
4