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

##</code><code>##

Laurent@Laurent-HP ~
$ perl -e 'srand(555);
> my $range = 1000;
> my $number = int(rand($range));
> print $number,"\n";'
466