--- a/bin/dnsvi	Thu Apr 09 22:07:08 2015 +0200
+++ b/bin/dnsvi	Thu Jul 14 10:30:27 2016 +0200
@@ -41,7 +41,8 @@
       && @ARGV >= 1
       or pod2usage();
 
-    my %auth = get_auth_info shift @ARGV;
+
+    my %auth = get_auth_info shift @ARGV, $o{server};
     my $zone = $auth{name};
 
     $o{server} = $o{local} ? 'localhost' : $auth{mname}

--- a/lib/DNS/Vi.pm	Thu Apr 09 22:07:08 2015 +0200
+++ b/lib/DNS/Vi.pm	Thu Jul 14 10:30:27 2016 +0200
@@ -289,8 +289,11 @@
 
 sub get_auth_info {
     my $name = shift;
+    my $server = shift;
     my %auth = (zone => undef, master => undef);
-    state $resolver = Net::DNS::Resolver->new;
+    state $resolver = Net::DNS::Resolver->new(
+        defined $server ? (nameservers => [$server]) : ()
+    );
     my $response = $resolver->send($name, 'SOA')
       or die $resolver->errorstring, "\n";