Normally, I would use Expect to do this, but the system is in production, and the customer will not let me install new perl modules on it.
This reminds me of this node. Why are there so many retards running things?