--- a/lib/DNSSec.pm	Thu Apr 02 13:26:45 2015 +0200
+++ b/lib/DNSSec.pm	Tue Apr 07 14:14:51 2015 +0200
@@ -7,11 +7,15 @@
 
 our @EXPORT_OK = qw(keyset ksk keyinfo);
 
-my $resolver = Net::DNS::Resolver->new;
-$resolver->dnssec(1);
 
 sub keyset {
+    my %arg = %{+shift} if ref $_[0] eq ref {};
     my $domain = shift;
+
+    my $resolver = Net::DNS::Resolver->new(
+	$arg{-server} ? (nameservers => [$arg{-server}]) : ());
+    $resolver->dnssec(1);
+
     my $keys = $resolver->query($domain => (DNSKEY => 'IN'))
       or die $resolver->errorstring;
 
@@ -25,7 +29,7 @@
 }
 
 sub keyinfo {
-    my $ks = keyset shift;
+    my $ks = keyset @_;
     my @keyinfo;
     foreach my $k (ksk $ks->keys) {
 	my %keyinfo;