use Tk; my $mw = tkinit; $mw->Button->pack for 1..3; $mw->WidgetDump; MainLoop;