#! /usr/bin/perl

use Crypt::OpenSSL::Random;
use Crypt::OpenSSL::RSA;
use Data::Dumper ;

my $rsa = Crypt::OpenSSL::RSA->generate_key(1024); # or

print "private key is:\n", $rsa->get_private_key_string();
print "public key (in PKCS1 format) is:\n",     
      $rsa->get_public_key_string();
print "public key (in X509 format) is:\n", 
      $rsa->get_public_key_x509_string();

#$rsa_priv->use_md5_hash(); # use_sha1_hash is the default
#$signature = $rsa_priv->sign($plaintext);
#print "Signed correctly\n" if ($rsa->verify($plaintext, #$signature));