use Crypt::PK::ECC;
use strict;

my $pub_key_filename = ".\\keys\\pub_pem.txt";
my $priv_key_filename = ".\\keys\\priv_pem.txt";

my $message = "123456789 123456789 123456789 12";

print "Encrypting now...\n";

my $pk = Crypt::PK::ECC->new($pub_key_filename);
my $ct = $pk->ecc_encrypt($message,'SHA256'); #Why do I have to specifify a hash function?
 

print "ct... \n $ct\n";
 
### In session decrypt
my $ciphertext = $ct;
my $pk = Crypt::PK::ECC->new($priv_key_filename);
my $pt = $pk->ecc_decrypt($ciphertext);

print "decrypted...\n $pt\n";