$mw -> bind(
    einEindeutigerTag =>
    '<Type>' => sub {
        # dein code
        Tk->break;
} );

$mw -> bindtags( [qw/einEindeutigerTag all/] );