#!/usr/bin/perl

use Crypt::RSA;

my $rsa = new Crypt::RSA; 

my ($public, $private) = 
    $rsa->keygen ( 
        Identity  => 'Lord Macbeth <macbeth@glamis.com>',
        Size      => 256,  
        Password  => 'A day so foul & fair', 
        Verbosity => 1,
    ) or die $rsa->errstr();
print $public;