in reply to suppress Perl Tk:error
Have a look at the code for Tk::Carp posted on PM. This shows you how to trap errors and respond any way you see fit.