RosettaCodeData/Task/Window-creation/Perl/window-creation-4.pl
2019-09-12 10:33:56 -07:00

8 lines
135 B
Perl

use strict;
use warnings;
use QtGui4;
my $app = Qt::Application(\@ARGV);
my $window = Qt::MainWindow;
$window->show;
exit $app->exec;