perl로 디렉토리명 인코딩 후 변경시 문제점 문의드립니다.

윈도우즈 에서 보낸 파일을 펄로 압축을 푼뒤
자동으로 파일명 디렉토리명을 변경하는 부분을 작성중인데
초보인데다 머리가 너무 딱딱해져
잘 안풀립니다. 도움좀 요청하고자 이렇게 질문합니다.

아래 소스를 참고로 만들고 있는데
이게 처음은 잘 되는데
똑같은 파일을 다시 압축을 풀게되면
똑같은 이름의 파일이 존재하니까 덮어쓰기가 되었으면 좋겠는데
글자가 깨진상태로 새로운 폴더가 만들어지는지
원래 있던 파일이 글자가 깨지고
새로운 폴더가 제대로 이름이 바뀌는지..아직 확인이 잘 안되지만
압축을 푸는만큼 파일이 늘어납니다.

이것저것 라이브러리를 추가해서 되면 좋겠지만
있는것만 가지고 써야되는 환경이라 그것도 어렵고
영어로만되었던 사양에 새로 추가하는거라 언어를 영어로만 한정하는것도 어렵고

그럼 정리해서 질문
1.디렉토리에서 어떤 처리가 추가되어야(삭제나 카피가 아닌)
지금 의 폴더가 이미 존재하는 디렉토리에 덮어쓰기가 될까요?

소스상으로 도움을 주시면 더욱 감사하겠지만
힌트를 던져주셔도 감사히 받겠습니다.

find({ wanted => \&change_file, follow => 1 }, $path);
finddepth({ wanted => \&change_dir, follow => 1 }, $path);

sub change_file {
if ( -f $_ ) {
my $name = $_;
if(Encode::Guess->guess($name) !~ /utf/){
Encode::from_to($name, 'sjis', 'utf8');
rename $_, $name;
}
}
}
sub change_dir {
if ( -d $_ ) {
my $name = $_;
if(Encode::Guess->guess($name) !~ /utf/ && $name !~ /^\./){
Encode::from_to($name, 'sjis', 'utf8');
rename $_, $name;
}
}
}