#!/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;
}