perl -e 'srand (Perl_is_genious-20.09.2008-NeedHelp@perl-community.de_HZZw32jkO); $zzahl = rand(); $zzahl = substr($zzahl,0,35); print $zzahl, "\n"'