perl -wE 'say substr rand,2,8'
perl -wE 'say int rand 10**8'   # Won't show leading 0's.