# @chars contains characters to get random string from
my @chars = (a..z, A..Z, 0..9);
my $string = join '', map { @chars[rand @chars] } 1 .. 8;
print $string;