$ perl -e 'srand(7); print int(rand(10)),"\n" for 1..10'
2
6
2
1
4
2
1
7
0
0

$ perl -e 'srand(7); print int(rand(10)),"\n" for 1..10'
2
6
2
1
4
2
1
7
0
0