#!/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 . " ";

}

##</code><code>##

my %key;

$key{"priv_key"} = "864936564936746739711078786791024560681741810216";

$key{"p"} = "10338957890093350596225909251163119225609207907733677985558533404147484885008958544100101418392254071674981026439873104949464720186311018367111795638927603";

$key{"g"} = "2954683128362275491630179715593049850391332623783458156273154658926720589164949199159888826464918407328636671195688649130131612326212886632087281832722137";

$key{"q"} = "1001831165198829652697436093010198645746872403487";

$key{"pub_key"} = "1323460927720994618070448727574663888688993575715081267508071818636049670044713302408747578850296432590020771929699912452512506924349344334420749206004502";

$sig = $dsa->sign(Message=>$sig_msg, Key => %key);

##</code><code>##

my $key;

$key->{"priv_key"} = "864936564936746739711078786791024560681741810216";

$key->{"p"} = "10338957890093350596225909251163119225609207907733677985558533404147484885008958544100101418392254071674981026439873104949464720186311018367111795638927603";

$key->{"g"} = "2954683128362275491630179715593049850391332623783458156273154658926720589164949199159888826464918407328636671195688649130131612326212886632087281832722137";

$key->{"q"} = "1001831165198829652697436093010198645746872403487";

$key->{"pub_key"} = "1323460927720994618070448727574663888688993575715081267508071818636049670044713302408747578850296432590020771929699912452512506924349344334420749206004502";

$sig = $dsa->sign(Message=>$sig_msg, Key => $key);