$mw->protocol('WM_DELETE_WINDOW', \&Exit);

...

sub Exit {
#Was du machen willst
}