Erste Schritte mit Perl/Tk

#!/usr/local/bin/perl -w

use strict;
use Tk;

my $main = new MainWindow;
my $label = $main->Label(-text => 'Hello, world!');
my $button = $main->Button(
   '-text' => 'Quit',
   '-command' => sub { exit },
);
$label->pack; $button->pack;
MainLoop;

Mit use Tk werden alle zu Tk gehörenden Module importiert einschließlich aller Widgets wie beispielsweise MainWindow. Ferner wird auch der eigene Namensraum mit einigen Namen wie beispielsweise MainLoop geflutet.

Per Konvention wird use strict verwendet, um die Disziplinen zu erzwingen, die das Leben in einer modularisierten Welt erleichtern.

$main ist ein Objekt von dem Typ MainWindow, das mit my nur lokal sichtbar angelegt wird (dies ist insbesondere auch wegen use strict notwendig).

	Mit `use Tk` werden alle zu Tk gehörenden Module importiert einschließlich aller Widgets wie beispielsweise `MainWindow`. Ferner wird auch der eigene Namensraum mit einigen Namen wie beispielsweise `MainLoop` geflutet.
	Per Konvention wird `use strict` verwendet, um die Disziplinen zu erzwingen, die das Leben in einer modularisierten Welt erleichtern.
	`$main` ist ein Objekt von dem Typ `MainWindow`, das mit `my` nur lokal sichtbar angelegt wird (dies ist insbesondere auch wegen `use strict` notwendig).