use Tk;

$top = new MainWindow;

$top->optionAdd("*Label.borderWidth", 1);
$top->optionAdd("*Label.relief", "solid");

for (1..20) {
    Tk::grid(
	     $top->Label(-text => "Hallo"),
	     $top->Label(-text => "Welt"),
	    );
}

$top->WidgetDump;
MainLoop;

__END__