#! /home/linuxer/perl5/perlbrew/perls/perl-5.24.1/bin/perl
use strict;
use warnings;
use Tk;
my $mw = tkinit();
my $beschriftung1 = $mw->Label(
        -text => "Perl " . $],
        -font => 'Times 12',
        -background => 'red',
        -foreground => 'white',
    );
$beschriftung1->grid( -row => 0, -column => 0, );

my $beschriftung2 = $mw->Label(
        -text => "Tk " . Tk->VERSION,
        -font => 'Times 13',
        -background => 'blue',
        -foreground => 'white',
    );
$beschriftung2->grid( -row => 1, -column => 0, );

$mw->MainLoop();