use Crypt::PK::ECC;

open (OUT_priv,">.\\keys\\priv_pem.txt");
open (OUT_pub,">.\\keys\\pub_pem.txt");

  #Key generation
 my $pk = Crypt::PK::ECC->new();
 $pk->generate_key('secp256k1');
 my $private_pem = $pk->export_key_pem('private');
 my $public_pem = $pk->export_key_pem('public');
  
 print OUT_priv "priv_pem $private_pem\n";
 print OUT_pub "pub_pem $public_pem\n";