Use -no_match_vars

install

@@ -5,7 +5,7 @@
 # This program is free software; rights to this code are stated in doc/LICENSE.
 use strict;
 use warnings;
-use English;
+use English qw(-no_match_vars);
 use FindBin qw($Bin);
 our $Bin = $Bin;