# change
# $sig = $dsa->sign(Message=>$sig_msg, Key => $key);
# to
$sig = $dsa->sign(Message=>$sig_msg, Key => $key->{'p'} );