#!/usr/bin/perl
use strict;
use Crypt::RSA;

my $message="string";
my $rsa = new Crypt::RSA;
my ($public, $private) = $rsa->keygen( Size => 64 );
print "My Public key is: $public ", $public->serialize();
print "My Private key is: $private", $private->serialize();
my $c = $rsa->encrypt( Message => $message, Key => $public, ) or warn "$!\n";
print "My cipher text is: $c\n";
my $nmessage = $rsa->decrypt( Ciphertext => $c, Key => $private, );
print "My plain text is: $nmessage\n";