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

##</code><code>##

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