$dialog->protocol('WM_DELETE_WINDOW' => sub { 
           print "nope\n"; 
            });     

##</code><code>##

my $dialog = $Global::mw->Dialog()