#!/usr/bin/perl

use lib '/home/httpd/typekey/perl/share/perl/5.8.4'; # this is where Crypt::DSA is

use Crypt::DSA;
 
my $dsa = Crypt::DSA->new;
 
my $key = $dsa->keygen(Size => 512, Verbosity => 1);
 
print ref $key;
 
foreach my $k (keys %{$key}) {
 
  print "\n\n" . $k . " ==> " . $key->$k . "\n\n";
 
 
}
 
$key->write(Type => PEM, Filename => "./pem.txt");