#!/afs/athena/contrib/perl/perl5

BEGIN { push(@INC, "./perllib"); }

use PGP::Keyring;
use PGP::Packet;
use IO::File;
use Mmap;
use DBI;

GetOptions('verbose' => \$verbose);

$file = new IO::File($ARGV[0]);

$mmap = mmap($ringbuf, 0, PROT_READ, MAP_SHARED, $file);

$ring = new PGP::Keyring(\$ringbuf);

while ($key = $ring->NextKey()) {
    $pubkey = $key->{"parsed"};
    
}