in reply to Entering EXIT at any prompt

You might check out IO::Prompt.

In Section Seekers of Perl Wisdom