תשובה
יש כל מיני שיטות... הנה אחת מהם: @array = (`A`..`Z`, `a`..`z`, 0..9); @array = sort {int (rand 3) - 1} @array; $`` = ``; $password = ``@array[0..7]``; print ``$password\n``; (משום מה הקוד יוצא לי הפוך כאן... תצטרך להעתיק ולהדביק ב Notepad או משהו)