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