use Term::ReadKey to accomplish what you're attempting to, as for in general, there is no way to alarm your way out of eval.