use strict;
use Crypt::JWT qw(decode_jwt);

my $keylist = '...';
my $token = '...';

my $data = decode_jwt(token=>$token, kid_keys=>$keylist);