Add a short demonstration of a state machine.

Written for someone who wanted something for an
https://en.wikipedia.org/wiki/Interactive_voice_response (IVR) . This is
an implementation of a https://en.wikipedia.org/wiki/Finite-state_machine
using Perl (Finite state machine).