Solution to task 1

1 files changed, 18 insertions, 0 deletions

diff --git a/challenge-124/jo-37/perl/ch-1.pl b/challenge-124/jo-37/perl/ch-1.pl
new file mode 100755
index 0000000000..23b256f89f
--- /dev/null
+++ b/challenge-124/jo-37/perl/ch-1.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+use v5.16;
+use warnings;
+
+use Tk;
+use Tk::Font;
+
+# "Feel free to use any character."
+# I chose U+2640.
+my $mw = Tk::MainWindow->new;
+$mw->title('Venus');
+$mw->Label(
+    -font => $mw->Font(-family => 'arial', -size => 240),
+    -text => "\x{2640}"
+)->pack;
+
+MainLoop;