For a simple (and secure) way of generating random numbers bounded by a range, you can use the Crypt::Random module to do this

perl -MCrypt::Random -e 'print Crypt::Random::makerandom_itv(Lower => 
+10, Upper => 20), $/ for (1..10)'
[download]

- Cees