#!/usr/bin/perl -w   # Pfad des Perl-Interpreters
use Qt;      # Laden des Qt-Interface

 # Anlegen eines Applikations-Objekts
 #  mit einer Referenz auf die Kommandozeilenarg. (@ARGV)
 # Zugriff auf dieses Appl.-Objekt ist später mit Zeiger  Qt::app()  möglich
my $a = Qt::Application(\@ARGV);

 # Anlegen eines Pushbuttons ohne Elternwidget (undef)
my $hello = Qt::PushButton("Hello World!", undef);

 # Größe des Pushbuttons und Pushbutton als Mainwidget festlegen
$hello->resize(160, 25);
$a->setMainWidget($hello);

 # Widget hello einblenden und Kontrolle an Applikation übergeben
$hello->show;
exit $a->exec;