I think you want this entry in the Perl Tk FAQ
10.21. How do I prevent a window from closing when a user clicks on the 'cross-field' in the upper-right corner?
In reply to Re: How to disable Perl/TK Frame widget close button by brian_d_foy in thread How to disable Perl/TK Frame widget close button by w3ntp