use strict;
use warnings;
use Tk;

my $de_prog = MainWindow->new();
$de_prog ->title('[Prog. Name] V_0.9(Demo)');
$de_prog ->Label(-text => 'Hallo und willkommen')->pack;
MainLoop;