パスワードを生成するワンライナー

仕事でたまにランダムっぽいパスワードを生成する必要が出てきたりします。今までは

perl -e "@c = (ord('!') .. ord('~')); for (1..10) {print chr($c[rand() * @c]);}"

こんな感じのワンライナーを使っていたんですけど、Windows と Linux の両方で動作しなかったり、文字種を変えたりするのが面倒だったので、改良を加えてみることにしました。