diff --git a/check_backuppc_du b/check_backuppc_du
index 5935101..d89b672 100755
--- a/check_backuppc_du
+++ b/check_backuppc_du
@@ -34,6 +34,10 @@
 use strict;
 no utf8;
 
+# Suppress warnings about smartmatch being experimental
+# Found here: http://blogs.perl.org/users/mike_b/2013/06/a-little-nicer-way-to-use-smartmatch-on-perl-518.html
+no if $] >= 5.017011, warnings => 'experimental::smartmatch';
+
 # Nagios
 use lib "/usr/lib/nagios/plugins";
 use utils qw(%ERRORS $TIMEOUT);