perl ssh problem