C:\Users\Laurent>perl -e "srand(555); my $range = 1000; my $number = int(rand($range)); print $number ;"
56