A-M baby

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,5 @@
+use strict;
+use warnings;
+use XUL::Gui;
+
+display Label 'Goodbye, World!';

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

@@ -0,0 +1,7 @@
+use strict;
+use warnings;
+use XUL::Gui;
+
+display Button
+    label => 'Goodbye, World!',
+    oncommand => sub {quit};