Since Tk already captures errors, you can simply use its built-in error handling function: Tk::Error. Just defined a sub as sub Tk::Error { ... } and process the errors as you wish.