The Perl debugger has an API, which you could use for your purposes. See DB for the documentation.

If there's a reason you can't use that, another common technique is to write your own runloop - but that's probably much more effort.