diff --git a/bin/list-dnssec b/bin/list-dnssec
new file mode 100755
index 0000000..6987e5b
--- /dev/null
+++ b/bin/list-dnssec
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Martnet::DDNS;
+
+my $ddns = Martnet::DDNS->new();
+
+my @vh = $ddns->get('_dnssec');
+foreach my $i (sort {$a->{zone} cmp $b->{zone}} @vh) {
+    print $i->{zone}, ". master: ", $i->{master},"\n";
+}