#!/usr/bin/perl

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 $k . "=" . $key->$k . " ";

}