Beginnen wollen wir natürlich mit dem einfachsten Programm. Wir erzeugen ein neues Fenster (MainWindow) in dem Hallo Welt steht.........

#!/usr/bin/perl -w

use strict;

use Tk;

my $fenster = MainWindow->new;

$fenster->Label("-text" => "Hallo Welt")->pack();

MainLoop;

So siehts aus :

Wie weiter oben bereits gesehen binden sie die Bibliothek von Tk mittels.....

use Tk;   

...ein. Als nächstes erzeugen wir mittels.......

my $fenster = MainWindow->new;

...das Hauptfenster (MainWindow) mit Hilfe von new, dem Konstruktor der Klasse vom MainWindow-Objekt. Die Referenz dazu ist ganz einfach in der skalaren Variablen $fenster. Das bedeutet nun das wir mit Hilfe der skalaren Variable $fenster immer auf unser Hauptfenster zugreifen können. Dies machen wir bereits in der nächsten Zeile mit........

$fenster->Label("-text" => "Hallo Welt")->pack();  

Damit erzeugen wir das Steuerelement 'Label' (Label steht für ein Textfeld). Diese Steuerelement beinhaltet den Text 'Hallo Welt' ("-text" => "Hallo Welt").
Damit dieser Text nun auch in dem Hauptfenster (MainWindow) $fenster angezeigt wird müssen wir noch die Methode pack() (unser Geometriemanager) aufrufen. Man sollte aber auch für den Label eine extra Referenz einrichten um die Übersicht zu bewaren...........

#!/usr/bin/perl -w

use strict;

use Tk;

my $fenster = MainWindow->new;

my $text= $fenster->Label("-text" => "Hallo Welt");
$text->pack();

MainLoop;

Dies Programm bewirkt dasselbe. Zu guter letzt wird in jedem Programm mit Tk die Methode MainLoop angegeben. MainLoop nimmt die Nachrichten die das Hauptfenster erhält auf und verarbeitet diese weiter.

Mehr zu Label : man Tk::Label