it descends only one level, because the second read_dir gets a one-dir path which isn't valid from top level.

either use chdir $dir; and chdir '..' at start and end or keep a full path.

you already got full functioning code with File::Find , better use it.