zipにパスワードが掛かってるかなんて
1バイト読み込んで、ビットたってるか調べるだけじゃん
perl使いは無駄なことしてるなw