$ perl -e 'print 1 + int rand 49, " ", for 1..6'
5 33 19 21 25 39