perl -le "srand(0); print rand"