#!/usr/bin/perl

use strict;
use Crypt::RSA;

print "RSA tester\n";

my $infoToSign = "blah";
my $privateKey = 5;

my $rsa = new Crypt::RSA;
my $signatureValue = $rsa->sign(
  Message    =>  $infoToSign,
  Key        =>  $privateKey,);