RosettaCodeData/Task/Hello-world-Graphical/Perl/hello-world-graphical-4.pl

use strict;
use warnings;
use QtGui4;

my $app = Qt::Application(\@ARGV);
my $label = Qt::Label('Goodbye, World');
$label->show;
exit $app->exec;