1 files changed, 7 insertions, 0 deletions
diff --git a/challenge-047/jo-37/perl/ch-1.pl b/challenge-047/jo-37/perl/ch-1.pl
new file mode 100755
index 0000000000..d61d8f9e0d
--- /dev/null
+++ b/challenge-047/jo-37/perl/ch-1.pl
@@ -0,0 +1,7 @@
+#!/usr/bin/perl
+
+use v5.16;
+use warnings;
+use Roman;
+
+say Roman(eval qq{arabic("$ARGV[0]") $ARGV[1] arabic("$ARGV[2]")});