$ perl -e 'print int (1 + rand 49), " ", for 1..6'
20 32 37 32 3 39