#!/opt/standard_perl/perl5881/bin/perl -w

use Crypt::RSA;

my $keychain = new Crypt::RSA::Key;
my ($public, $private) = $keychain->generate ( 
                         Identity   => "test",
                          Size      => 1024,  
                          Verbosity => 1) or die $keychain->errstr();

$private->write( Filename => 'spi4500eb.private');
$public->write( Filename => 'spi4500eb.public');