perl -e 'print 15 + rand 15'