my @a = ('0'..'9', 'a'..'z', 'A'..'Z');
my $password = join '', map { $a[int rand @a] } 0 .. 7;
print "$password\n";