$top->protocol( DELETE_WINDOW',
    [\&my_clean_up_routine, $top, $another_parameter] );

[download]