++ for recommending my module (IO::Prompt::Hooked). I actually implemeneted a solution to the OP's question using IO::Prompt::Hooked last night, and it looked (in my opinion) great. ...but it became late, and I was too tired to submit a post around it. :)

Anyway, this is exactly the sort of thing that IO::Prompt::Hooked aims to simplify.