c:\@Work\GCC\PerlMonks\gavin100>a
guessed 5: low.  next guess 7
guessed 7: high.  next guess 6
done guessing