use strict;
use warnings;
use Tk;

my $mw = MainWindow->new();
$mw->geometry("600x400");

my $frame = $mw->Frame(-relief => 'groove', -borderwidth => 2)->pack(-anchor => 'nw', -fill => 'x', -expand => 1);

$frame->Label(-text => 'Text1', -font => '{Arial} 12')->grid(-row => 0, -column => 0, -padx => 10);
$frame->Label(-text => 'Dies ist ein Test', -font => '{Arial} 12')->grid(-row => 0, -column => 1, -padx => 10);

MainLoop;