Decrypt script (not working - gets OpenSSL error)

#!/usr/bin/perl

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

sub decrypt_password {
  my $pubkey   = shift;
  my $password = shift;

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

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

print decrypt_password('PUBLICKEY-HERE', 'ENCRYPTED-PASSWORD-HERE'), "\n";