use Crypt::OpenPGP;
my $pgp = Crypt::OpenPGP->new ();
$pgp->keygen( Type  => 'DSA',
              Size => 1024,
              Identity => 'Garett L Holmes<br> <gaholmes@hotmail.com>',
              Passphrase => 'password',
              Verbosity  => '1') or die $pgp->errstr;<br>