#!/usr/pkg/bin/perl
# Author  :	Stefan Schumacher stefan[at]net-tex.de
# License :	BSD
# Purpose :   	gets all PGP Keys that are used as signature 
#		but not found at the keyring, requires a keyserver 
#		to be set in ~/.gnupg/options

my @keylist = `gpg --list-sigs | grep sig | grep -i 'user id'`;
	for my $keyline (@keylist)
	{
		$key=substr($keyline,12,8);
		my $recv = `gpg --recv $key`;
	}