--- a/lib/DNS/Vi.pm	Thu Jun 05 00:02:38 2014 +0200
+++ b/lib/DNS/Vi.pm	Thu Jun 05 00:10:22 2014 +0200
@@ -6,9 +6,8 @@
 use Digest::SHA qw(sha512_hex);
 use File::Temp;
 use base 'Exporter';
-
-# we need to survive the newer perls
-BEGIN { warnings::unimport('experimental'); }
+no if $^V ge v5.16.0 => (warnings => 'experimental');
+#no if $warnings::Offset{'experimental'} => (warnings => 'experimental');
 
 our @EXPORT = qw(ttl2h h2ttl parse delta nice edit update show);
 our @EXPORT_OK = ();
@@ -18,9 +17,6 @@
     my $data = shift;
     my @lines = split /\n/, $data;
 
-    my $x;
-    say $x;
-
     my @zone;
     my ($origin, $ttl, $last_label, $soa_seen);