Formula to produce random numbers between 5 and 15 inclusive
#!/usr/bin/perl $x=5 ; $y=15; # Formula to produce random numbers between 5 and 15 inclusive # $random = int(rand($y - $x + 1)) + $x; # $random = int(rand(15 - 5 + 1)) + 5 while(1){ print int(rand($y - $x + 1)) + $x , "\n"; sleep 1; }