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

##</code><code>##

     
  $key->write( Type => 'PEM', Filename => $keyfile);

##</code><code>##

$key = Crypt::DSA::Key->new(Type => 'PEM', Filename => $keyfile);

##</code><code>##

-----BEGIN DSA PRIVATE KEY-----
MIH3AgEAAkEAuu/8bF0QtFaU8Eo3XzJzyuwyfIEoCvYxzcx5dGkTa7przkVGPaJp
n6uEPIueBQEP21+SmfebPpkbKF98gw+MSwIVAMGFQpGtsAWNedBzQ85p0CkTuKYZ
AkBLciRf48J8u/LYz2FejmaPs88sKPt/mNLLfzOUz6LO0HqjXOq6vD0WzGcek0Z6
VK9JD3r9eyclPNvsArZ7v/LaAkBxM58UjEqschS9r7Je28kCQ4eYC4lhkRq+pAot
/kh86LBlohQZ6A6zgCyPiKNLT5VQ29vKW49f36XjYrIDUk21AhQdRFsMvKVp+W5C
7L7i0FLp3tYb6w==
-----END DSA PRIVATE KEY-----