$ perl -e 'print int (1 + rand 49), " ", for 1..6'
48 16 40 39 21 24