$top->protocol( 'WM_DELETE_WINDOW',
                    \&my_clean_up_routine( $top, $another_parameter);