#!/perl/bin/perl

package RBS_PrivateKeyWrapper;
use strict;
sub getPrivateKey()
{
  my $privateKeyFilename = '/var/www/html/certificates/working.private';

  my $privateKey = getPrivateKeyPerlRSAEncoded($privateKeyFilename);

  return $privateKey;
}

sub getPrivateKeyPerlRSAEncoded($)
{
  my ($privateKeyFilename) = @_;

  my $privateKey = new Crypt::RSA::Key::Private(
    Filename  =>  $privateKeyFilename
    );

  return $privateKey;
}

1;