调试perlbrew see #1