diff --git a/dumpsigs b/dumpsigs
new file mode 100644
index 0000000..87ee3a6
--- /dev/null
+++ b/dumpsigs
@@ -0,0 +1,42 @@
+#!/usr/bin/perl
+
+my $keyring='';
+
+$keyring="--no-default-keyring --keyring=$ARGV[0]" if $ARGV[0] ne '';
+
+my @line;
+my $ver;
+my $rel;
+my $name;
+
+open(GPG, "gpg $keyring --no-secmem-warning --list-sigs --list-options show-keyring --fixed-list-mode --with-colons |");
+while (<GPG>) {
+  chomp;
+  next unless /^pub:/;
+  @line = split(':', $_);
+  my $id = $line[4];
+  $_ = <GPG>;
+  chomp;
+  next unless /^uid:/;
+  @line = split(':', $_);
+  $name = $line[9];
+  while (1) {
+    $_ = <GPG>;
+    chomp;
+    die unless /^sig:/;
+    @line = split(':', $_);
+    next if $line[4] ne $id;
+    $ver = lc($id);
+    $ver =~ s/.*(........)$/$1/;
+    $rel = sprintf("%08x", $line[5]);
+    last;
+  }
+  $names{"gpg-pubkey-$ver-$rel"} = $id;
+}
+close GPG;
+my $n;
+
+for $n (sort keys %names) {
+  print "writing $n.asc\n";
+  system("gpg $keyring --no-secmem-warning --export -a '$names{$n}' >$n.asc");
+}