perl 예제 수정