--- /usr/local/share/perl/5.22.1/Amazon/Dash/Button/Device.pm	2018-04-30 20:22:18.956933626 +0200
+++ /usr/local/share/perl/5.22.1/Amazon/Dash/Button/Device_patch.pm	2018-04-30 20:24:31.638601089 +0200
@@ -58,7 +58,8 @@
 }
 
 sub debug {
-	warn join( ' ', map { $_ // 'undef' } @_ );
+    my $debug = 0;
+	warn join( ' ', map { $_ // 'undef' } @_ ) if $debug;
 }
 
 sub check {