<Disclaimer> I have not tried this in perl and it may depend on your OS. </Disclaimer>
Any ideas...? These buttons generate events to your top level window. You might try binding those events to nops or dummy functions as physi suggested. Check out tk::bind