perl -e "print 1 + int rand 49, ' ', for 1..6"