use Tk;

$top = new MainWindow;

$top->optionAdd("*HBorder.height", 1);
$top->optionAdd("*HBorder.background", "black");

$top->optionAdd("*VBorder.width", 1);
$top->optionAdd("*VBorder.background", "black");

for (1..20) {
    Tk::grid(
	     $top->Label(-text => "Hallo"),
	     $top->Frame(-class => "VBorder"),
	     $top->Label(-text => "Welt"),
	     -sticky => "ns",
	    );
    Tk::grid(
	     $top->Frame(-class => "HBorder"),
	     $top->Frame(-class => "HBorder"),
	     $top->Frame(-class => "HBorder"),
	     -sticky => "ew",
	    );
}


MainLoop;

__END__