use Crypt::OpenPGP;
$pgp = Crypt::OpenPGP->new ();

%attrib = (
              'Type'  => 'RSA',
              'Size' => '1024',
              'Identity' => 'Garett L Holmes gaholmes@hotmail.com',
              'Passphrase' => 'password',
              'Cipher' => 'DES3',
              'Verbosity'  => '1',
              'Compat'      =>  'PGP5',
          );

($pubkey, $privkey) = $pgp->keygen( %attrib ) or die $pgp->errstr;
$public = $pubkey->save;
open(PUBLIC,">test.public") or die "COULD NOT OPEN pub\n";
print PUBLIC $public;
close(PUBLIC);

$private = $privkey->save;
open(PRIVATE,">test.private") or die "COULD NOT OPEN priv\n"; 
print PRIVATE $private; 
close(PRIVATE);