$minlength=5; $maxlength=15;
$rlength=$minlength+=int(rand($maxlength));
@vchars=(a..z,A..Z,0..9);
while(length($newvar) < $rlength) {
$char=$vchars[int(rand($#vchars))];
$newvar.=$char
}
print $newvar