diff --git a/test/tests/perl-hello-world/expected-std-out.txt b/test/tests/perl-hello-world/expected-std-out.txt
new file mode 100644
index 0000000000..980a0d5f19
--- /dev/null
+++ b/test/tests/perl-hello-world/expected-std-out.txt
@@ -0,0 +1 @@
+Hello World!
diff --git a/test/tests/perl-hello-world/hello-world.pl b/test/tests/perl-hello-world/hello-world.pl
new file mode 100644
index 0000000000..8bca79e243
--- /dev/null
+++ b/test/tests/perl-hello-world/hello-world.pl
@@ -0,0 +1,2 @@
+#!/usr/bin/perl
+print "Hello World!";
diff --git a/test/tests/perl-hello-world/run.sh b/test/tests/perl-hello-world/run.sh
new file mode 100755
index 0000000000..f136247474
--- /dev/null
+++ b/test/tests/perl-hello-world/run.sh
@@ -0,0 +1,8 @@
+#!/bin/bash
+set -e
+
+image="$1"
+dirTest="$(dirname "$(readlink -f "$BASH_SOURCE")")"
+dirContainer='/usr/src/perl'
+
+docker run -it --rm -v "$dirTest":"$dirContainer" -w "$dirContainer" "$image" perl hello-world.pl