my $length_of_randomstring=shift;# the length of
# the random string to generate

# rand @chars will generate a random
# number between 0 and scalar @chars
$passstring.=$chars[rand @chars];

Que belo tutorial amigo, vá enganar outro.