Hallo Christian,
ich vermute, dass sich der Seed nicht ändert. Sonst würdest du nicht dasselbe Passwort bekommen.
Perl verwendet standardmäßig eine Kombination aus der aktuellen Zeit, der Prozeß-ID und weiteren Zufallskomponenten als Argument zu srand()
Einen "wirklich zufälligen" Seed erzeugst du folgendermaßen:
use Math::TrulyRandom; #CPAN-Modul
$random_seed = truly_random_value();
srand($random_seed);
sub zufall...
Bye,
Manyak Online