Простая генерация паролей на Perl

Получение случайной последовательности в одну строку:

#!/usr/bin/perl -w

@chars = ("a" .. "z", 0 .. 9);
$rnd32 = join("", @chars[ map { rand @chars } (0 .. 32) ]);
print "$rnd32n";

1;