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);