diff --git a/lib/Slic3r.pm b/lib/Slic3r.pm
index 746176f26..f6bd643c4 100644
--- a/lib/Slic3r.pm
+++ b/lib/Slic3r.pm
@@ -21,6 +21,9 @@ BEGIN {
     $have_threads = $Config{useithreads} && eval "use threads; use Thread::Queue; 1";
 }
 
+warn "Running Slic3r under Perl >= 5.16 is not supported nor recommended\n"
+    if $^V >= v5.16;
+
 use FindBin;
 our $var = "$FindBin::Bin/var";