#!perl
use strict;
use warnings;
use Tk;
my $mw = tkinit();
my $beschriftung1 = $mw->Label(
        -text => 'Test1:',
        -font => 'Times 12', 
    );
$beschriftung1->grid( -row => 0, -column => 0, );

my $beschriftung2 = $mw->Label(
        -text => 'Test2:',
        -font => 'Times 13', 
    );
$beschriftung2->grid( -row => 1, -column => 0, );

$mw->MainLoop();