libfile-copy-recursive-reduced-perl