#!/usr/bin/perl
use warnings;
use strict;
use Crypt::DSA;
use Crypt::DSA::Key;

my $dsa = Crypt::DSA->new;
my $key = $dsa->keygen(Size => 512, Verbosity => 1);
printf "Public key: %s\n", $key->pub_key; 
my $pem = $key->write( Type => 'PEM', Filename => 'zsave1');
print "pem-> $pem\n";

#show that the file saved as private key contains all
#information
my $pem1 = Convert::PEM->new(
                       Name => "DSA PRIVATE KEY",
                       ASN => qq(
                           DSAPrivateKey SEQUENCE {
                               version INTEGER,
                               p INTEGER,
                               q INTEGER,
                               g INTEGER,
                               pub_key INTEGER,
                               priv_key INTEGER
                           }
                      ));


my $pkey = $pem1->read(
                       Filename => 'zsave1'
                 );

my %deref = %$pkey;
for(keys(%deref)) {print "\n$_: $deref{$_}\n"}
print "\n";

my %d = %{$deref{DSAPrivateKey}};
for (keys(%d)) {print "$_ : $d{$_}\n"} 
__END__