perl version of the TCL "expect" tool