my $low = 1;        #Current low limit
 my $high = 1000;     #Current high limit
 
 #This is the secret number...Add one because we 
 #don't need to wind up with a zero now do we?
 my $goal = int(rand($high))+1;