$ perl -e 'use 5.10.0; say int(6*rand())+1 foreach(1..10);'
6
5
4
6
2
2
4
6
3
5