Initial data commit

Task/Hello-world-Graphical/Perl/hello-world-graphical-1.pl

@@ -0,0 +1,7 @@
+use strict;
+use warnings;
+use Tk;
+
+my $main = MainWindow->new;
+$main->Label(-text => 'Goodbye, World')->pack;
+MainLoop();

Task/Hello-world-Graphical/Perl/hello-world-graphical-2.pl

@@ -0,0 +1,10 @@
+use strict;
+use warnings;
+use Tk;
+
+my $main = MainWindow->new;
+$main->Button(
+  -text => 'Goodbye, World',
+  -command => \&exit,
+)->pack;
+MainLoop();

Task/Hello-world-Graphical/Perl/hello-world-graphical-3.pl

@@ -0,0 +1,15 @@
+use strict;
+use warnings;
+use Gtk2 '-init';
+
+my $window = Gtk2::Window->new;
+$window->set_title('Goodbye world');
+$window->signal_connect(
+  destroy => sub { Gtk2->main_quit; }
+);
+
+my $label = Gtk2::Label->new('Goodbye, world');
+$window->add($label);
+
+$window->show_all;
+Gtk2->main;

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

@@ -0,0 +1,8 @@
+use strict;
+use warnings;
+use QtGui4;
+
+my $app = Qt::Application(\@ARGV);
+my $label = Qt::Label('Goodbye, World');
+$label->show;
+exit $app->exec;