Encrypting script (works)

#!/usr/bin/perl

use strict;
use warnings;
use Crypt::OpenSSL::RSA;
use Crypt::OpenSSL::Random;
use Data::Dumper;

my $password     = shift || 'password';
my $privkey_file = 'privkey.rsa';

sub encrypt_password {
  my $privkey  = shift;
  my $password = shift;

  #Crypt::OpenSSL::Random::random_seed('test');
  #Crypt::OpenSSL::RSA->import_random_seed();
  my $crypt = Crypt::OpenSSL::RSA->new_private_key($privkey);
  $crypt->use_pkcs1_padding;

  return $crypt->private_encrypt($password);
}

print encrypt_password('PRIVATEKEY-HERE', $password), "\n";