exemplo em perl