perl -e 'print int(rand() * 10**15)