perl -e 'srand (42); $zzahl = rand(); print $zzahl, "\n"'