Select Code to Download

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

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