my $widget = Tk::SomeWidget->new( ... );
$widget->Add( ... );
$widget->pack( ... );