Einfach $frame->width() bzw. $frame->height().

(Siehe auch perldoc Tk::Widget.)