What code do you already have and how does it fail to do what you want?

Most likely, your code will be using File::Copy or File::Copy::Recursive.

Also, have you considered simply using:

system(qq{cp -rp '$source_dir' '$target_dir'}) == 0
    or die "$! / $?";
[download]

... or on Windows

system(qq{xcopy /v /q /i /e /s "$source_dir" "$target_dir"}) == 0
    or die "$! / $?";
[download]

But how do i get the subdir recursively.so that the file from dir A/B goes to C/B and so on also for F/B goes to G/B

That's what the cp -r does. Did you try one of those commands and it did not work? What did happen?

But God demonstrates His own love toward us, in that while we were yet sinners, Christ died for us. Romans 5:8 (NASB)

---

Maybe you can show some examples of what you have as source directory structure and target directory structure and how both source and target are specified. Then we can better advise you on the approach to take.