Select Code to Download

    sub genkeys {
        map { CODE } 1..shift;
    }

            join '' => map $chr[rand @chr], (1) x (5 + rand 10);