srand(555);
my $range = 1000;
my $number = int(rand($range));
print $number,"\n";