--- a/bin/dnsvi	Wed Jun 04 08:59:12 2014 +0200
+++ b/bin/dnsvi	Wed Jun 04 14:42:14 2014 +0200
@@ -8,7 +8,7 @@
 use Pod::Usage;
 use File::Copy;
 
-use blib;
+#use blib;
 use DNS::Vi;
 
 sub slurp {

--- a/lib/DNS/Vi.pm	Wed Jun 04 08:59:12 2014 +0200
+++ b/lib/DNS/Vi.pm	Wed Jun 04 14:42:14 2014 +0200
@@ -2,6 +2,7 @@
 use 5.010;
 use strict;
 use warnings;
+no warnings 'experimental';
 use if $ENV{DEBUG}//''  eq 'dnsvi' => 'Smart::Comments';
 use Digest::SHA qw(sha512_hex);
 use File::Temp;