perl -e'$|++;split//,int rand 10**pop;sub f{$.=++$.%10;print$.;sleep 1
+,print"\b";$.==$_[0]||&f;print 
shift;@_&& &f}&f;print"\n"' 10
[download]

You may additionally add ."\a" after print shift to produce a bell sound after a digit has been successfully found. That increases character count to 129.

The OP is ambiguous, though. It says pick a number between 0 and 1e^$D-1, but doesn't say whether it should contain prefix zeroes or not. My code doesn't produce prefix zeroes.