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