#!/usr/bin/perl -w
use strict;

#............................................ neues Package mit Namen MyButton
package MyButton; # neues Package mit Namen MyButton
   use Qt;  # Qt-Interface importieren
   use Qt::isa qw(Qt::PushButton); # MyButton ist Unterklasse von QPushButton
     #........ Konstruktor für diese eigene Klasse
   sub NEW {
      shift->SUPER::NEW(@_[0..2]); # Aufruf des Konstruktors der Elternklasse
                                   # (hier QPushButton) mit allen Argumenten,
                                   # die diesem Konstr. übergeben wurden
      resize(130, 40);
   }
#................................................................ main-Package
package main;
   use Qt;  # Qt-Interface importieren
   use MyButton;  # package MyButton importieren

   my $a = Qt::Application(\@ARGV);
   my $w = MyButton("Hello World!", undef); # Anlegen eines MyButton-Objekts
   $a->setMainWidget($w);
   $w->show;
   exit $a->exec;