Select Code to Download

    my(@vchars) =(a..z,A..Z,0..9);

    sub rwg
...
              map { $vchars[int(rand($#vchars+1))] }
                 5 .. 5+int(rand(10)));
    }