perl -e 'srand(0);print rand(100)."\n"'