...
use base qw/Tk::Toplevel/;

Construct Tk::Widget 'Composite'
... implementation ...