программы на Perl можно писать просто считывая /dev/random