Top level panels/frames method

[perltk]

How can I get a reference to any toplevel dialog or frame.
I'm sure this is really simple but not stumbling over it.
Something like '->gettoplevel' or similiar ???