DokuWiki

#!/usr/bin/perl

use strict; use warnings;

use Crypt::JWT qw(encode_jwt decode_jwt);

use Term::ReadKey;

ReadMode ( 'noecho' );

    say STDERR "Please enter the passphrase:";
    my $pass = <STDIN>;
    chomp $pass;
ReadMode ( 'normal' );    #Back to your regularly scheduled program

my $key = Crypt::PK::RSA->new('/home/user/.ssh/id_rsa', $pass);

my $jws_token = encode_jwt(payload => 'payload', alg => 'RS256', key => $key, extra_headers=>{kid=>'me@example.com'});
say STDOUT $jws_token;