Select Code to Download

ken@titan ~/tmp/pm_11150231_dir_rand_select
$ ls -1R
...
d.x
e.y
f.z

#!/usr/bin/env perl

...

    return;
}

$ ./rand_select_files.pl
/home/ken/tmp/pm_11150231_dir_rand_select/inc1/h.x
/home/ken/tmp/pm_11150231_dir_rand_select/inc1/j.z
/home/ken/tmp/pm_11150231_dir_rand_select/inc2/n.x

$ ./rand_select_files.pl
/home/ken/tmp/pm_11150231_dir_rand_select/a.x
/home/ken/tmp/pm_11150231_dir_rand_select/c.z
/home/ken/tmp/pm_11150231_dir_rand_select/inc1/j.z