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

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