Perl / Tk

Hallo Welt


#!/usr/bin/perl

use strict;

use warnings;

use Tk;

my $mw = MainWindow->new();

$mw->Label(-text => 'Hallo Welt')

->pack();

MainLoop();