opendir(DIR, $rDir) || die "Can't opendir $rDir: $!";
my @files = grep { -f "$rDir/$_" } readdir(DIR);
closedir DIR;