srand; my $n=int(rand(10)); # gets you a number 0..9