#!/usr/local/bin/perl -w

use Stream::IO;
use PGP::PacketFactory;

my $fis = new Stream::FileInput "pubring.pgp";
my $dis = new Stream::DataInput $fis;

for (;;)
{
	my $packet = PGP::PacketFactory::restore($dis);
	last unless defined $packet;
	die $packet unless ref($packet);
	print $packet, "\n";
	print $packet->asString(), "\n";
}
